From 9c44dddf97e016364b25b4c37a7dc373cd65cae9 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Mon, 26 Apr 2010 05:37:57 -0400
Subject: [PATCH] compiler.codegen: cleanup

---
 basis/compiler/codegen/codegen.factor | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

diff --git a/basis/compiler/codegen/codegen.factor b/basis/compiler/codegen/codegen.factor
index 63571e7874..bae2fdcf6c 100755
--- 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 -- )