Fixing compiler bug with redefining deferred words
parent
cb5c100f7c
commit
9a897f91ff
|
@ -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
|
||||
|
|
|
@ -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 ;
|
||||
|
||||
|
|
Loading…
Reference in New Issue