compiler.codegen: cleanup

diff --git a/basis/compiler/codegen/codegen.factor b/basis/compiler/codegen/codegen.factor
index 63571e7874afc26f8b6dd3492686e0f183112dc0..bae2fdcf6c30c70a7f7f563e6f1aa1e73cea2c74 100755 (executable)
--- a/basis/compiler/codegen/codegen.factor
+++ b/basis/compiler/codegen/codegen.factor
@@ -202,6 +202,7 @@ CODEGEN: ##compare-float-unordered %compare-float-unordered
 CODEGEN: ##save-context %save-context
 CODEGEN: ##vm-field %vm-field
 CODEGEN: ##set-vm-field %set-vm-field
+CODEGEN: ##alien-global %alien-global
 
 CODEGEN: _fixnum-add %fixnum-add
 CODEGEN: _fixnum-sub %fixnum-sub
@@ -216,6 +217,7 @@ CODEGEN: _test-vector-branch %test-vector-branch
 CODEGEN: _dispatch %dispatch
 CODEGEN: _spill %spill
 CODEGEN: _reload %reload
+CODEGEN: _loop-entry %loop-entry
 
 ! ##gc
 : wipe-locs ( locs temp -- )
@@ -263,12 +265,6 @@ M: ##gc generate-insn
     } cleave
     "no-gc" resolve-label ;
 
-M: _loop-entry generate-insn drop %loop-entry ;
-
-M: ##alien-global generate-insn
-    [ dst>> ] [ symbol>> ] [ library>> ] tri
-    %alien-global ;
-
 ! ##alien-invoke
 GENERIC: next-fastcall-param ( rep -- )