compiler.cfg.linear-scan.allocation.state: simplify init-unhandled.

2014-12-01 22:18:15 -08:00 · 2014-12-01 22:18:15 -08:00 · ad9d44aa2b
parent 8f0c563268
commit ad9d44aa2b
1 changed files with 2 additions and 2 deletions
--- a/basis/compiler/cfg/linear-scan/allocation/state/state.factor
+++ b/basis/compiler/cfg/linear-scan/allocation/state/state.factor
@ -153,8 +153,8 @@ SYMBOL: spill-slots
    -1 progress set ;

 : init-unhandled ( live-intervals sync-points -- )
-    [ [ [ start>> ] keep ] { } map>assoc unhandled-intervals get heap-push-all ]
-    [ [ [ n>> ] keep ] { } map>assoc unhandled-sync-points get heap-push-all ]
+    [ unhandled-intervals get '[ dup start>> _ heap-push ] each ]
+    [ unhandled-sync-points get '[ dup n>> _ heap-push ] each ]
    bi* ;

 ! A utility used by register-status and spill-status words