Fix load error

db4
Slava Pestov 2008-08-27 05:54:01 -05:00
parent 799cefc39a
commit f471659810
2 changed files with 2 additions and 2 deletions

View File

@ -41,7 +41,7 @@ M: node compute-live-values* 2drop ;
] if ;
: compute-live-values ( -- )
work-list get [ iterate-live-values ] slurp-dequeue ;
work-list get [ iterate-live-values ] slurp-deque ;
GENERIC: remove-dead-code* ( node -- node' )

View File

@ -82,7 +82,7 @@ M: node collect-loop-info* 2drop ;
[ loop-calls get at [ disqualify-loop ] each ]
bi
] [ drop ] if
] slurp-dequeue ;
] slurp-deque ;
: detect-loops ( nodes -- nodes )
dup collect-loop-info disqualify-loops ;