Fixing compiler bug with redefining deferred words

db4
Daniel Ehrenberg 2008-01-28 19:09:49 -06:00
parent cb5c100f7c
commit 9a897f91ff
2 changed files with 2 additions and 1 deletions

View File

@ -238,3 +238,5 @@ DEFER: flushable-test-2
[ \ bx forget ] with-compilation-unit [ \ bx forget ] with-compilation-unit
[ t ] [ \ ax compiled-usage [ drop interned? ] assoc-all? ] unit-test [ 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

View File

@ -20,7 +20,6 @@ SYMBOL: compiled
{ {
{ [ dup compiled get key? ] [ drop ] } { [ dup compiled get key? ] [ drop ] }
{ [ dup primitive? ] [ drop ] } { [ dup primitive? ] [ drop ] }
{ [ dup deferred? ] [ drop ] }
{ [ t ] [ dup compile-queue get set-at ] } { [ t ] [ dup compile-queue get set-at ] }
} cond ; } cond ;