From 9a897f91fff46ea32bedc48d3cfb5dc486184f94 Mon Sep 17 00:00:00 2001
From: Daniel Ehrenberg <ehrenbed@carleton.edu>
Date: Mon, 28 Jan 2008 19:09:49 -0600
Subject: [PATCH] Fixing compiler bug with redefining deferred words

---
 core/compiler/test/redefine.factor | 2 ++
 core/generator/generator.factor    | 1 -
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/core/compiler/test/redefine.factor b/core/compiler/test/redefine.factor
index 266b331ffc..aa53068e36 100755
--- a/core/compiler/test/redefine.factor
+++ b/core/compiler/test/redefine.factor
@@ -238,3 +238,5 @@ DEFER: flushable-test-2
 [ \ bx forget ] with-compilation-unit
 
 [ t ] [ \ ax compiled-usage [ drop interned? ] assoc-all? ] unit-test
+
+[ "one" "two" ] [ "DEFER: redefine-test1 : redefine-test2 redefine-test1 \"two\" ; : redefine-test1 \"one\" ; redefine-test2" eval ] unit-test
diff --git a/core/generator/generator.factor b/core/generator/generator.factor
index 0e499cf90f..4d985ff164 100755
--- a/core/generator/generator.factor
+++ b/core/generator/generator.factor
@@ -20,7 +20,6 @@ SYMBOL: compiled
     {
         { [ dup compiled get key? ] [ drop ] }
         { [ dup primitive? ] [ drop ] }
-        { [ dup deferred? ] [ drop ] }
         { [ t ] [ dup compile-queue get set-at ] }
     } cond ;