From 6099e4d7ed23f0988436b77c0d4a17253e51a357 Mon Sep 17 00:00:00 2001
From: slava <slava@factorcode.org>
Date: Fri, 3 Nov 2006 05:48:43 +0000
Subject: [PATCH] Remove dead code

---
 TODO.FACTOR.txt                              | 1 +
 library/compiler/alien/alien-callback.factor | 2 +-
 library/compiler/alien/alien-indirect.factor | 2 +-
 library/compiler/alien/alien-invoke.factor   | 2 +-
 library/compiler/alien/compiler.factor       | 2 --
 5 files changed, 4 insertions(+), 5 deletions(-)

diff --git a/TODO.FACTOR.txt b/TODO.FACTOR.txt
index 024469b603..465aeb79d7 100644
--- a/TODO.FACTOR.txt
+++ b/TODO.FACTOR.txt
@@ -3,6 +3,7 @@
 - inline float allocation needs a gc check
 - fix alien invoke as required
   - we can just convert strings to aliens beforehand
+  - >float first too
 - fix alien callback as required
 
 + ui:
diff --git a/library/compiler/alien/alien-callback.factor b/library/compiler/alien/alien-callback.factor
index 091508e68b..73f8c7f7e4 100644
--- a/library/compiler/alien/alien-callback.factor
+++ b/library/compiler/alien/alien-callback.factor
@@ -66,7 +66,7 @@ M: alien-callback-error summary
     ] generate-1 ;
 
 M: alien-callback generate-node
-    end-basic-block compile-gc generate-callback iterate-next ;
+    end-basic-block generate-callback iterate-next ;
 
 M: alien-callback stack-reserve*
     alien-callback-parameters stack-space ;
diff --git a/library/compiler/alien/alien-indirect.factor b/library/compiler/alien/alien-indirect.factor
index ff61b77df0..7cfd0102ef 100644
--- a/library/compiler/alien/alien-indirect.factor
+++ b/library/compiler/alien/alien-indirect.factor
@@ -33,7 +33,7 @@ M: alien-indirect-error summary
     ] if ;
 
 M: alien-indirect generate-node
-    end-basic-block compile-gc
+    end-basic-block
     %prepare-alien-indirect
     dup alien-indirect-parameters objects>registers
     %alien-indirect
diff --git a/library/compiler/alien/alien-invoke.factor b/library/compiler/alien/alien-invoke.factor
index b4ca412989..8e36d5d89e 100644
--- a/library/compiler/alien/alien-invoke.factor
+++ b/library/compiler/alien/alien-invoke.factor
@@ -67,7 +67,7 @@ M: alien-invoke-error summary
     ] if ;
 
 M: alien-invoke generate-node
-    end-basic-block compile-gc
+    end-basic-block
     dup alien-invoke-parameters objects>registers
     dup alien-invoke-dlsym %alien-invoke
     dup generate-invoke-cleanup
diff --git a/library/compiler/alien/compiler.factor b/library/compiler/alien/compiler.factor
index 9eecc2d221..d31826a5fc 100644
--- a/library/compiler/alien/compiler.factor
+++ b/library/compiler/alien/compiler.factor
@@ -60,5 +60,3 @@ kernel-internals math namespaces sequences words ;
 
 : if-void ( type true false -- )
     pick "void" = [ drop nip call ] [ nip call ] if ; inline
-
-: compile-gc ; ! "simple_gc" f %alien-invoke , ;