Fix load error
parent
799cefc39a
commit
f471659810
|
@ -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' )
|
||||
|
||||
|
|
|
@ -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 ;
|
||||
|
|
Loading…
Reference in New Issue