compiler.cfg.linear-scan: fix typo

2010-05-17 05:18:40 -04:00 · 2010-05-17 05:18:40 -04:00 · 0955f2c7eb
parent 93abc7d169
commit 0955f2c7eb
1 changed files with 2 additions and 2 deletions
--- a/basis/compiler/cfg/linear-scan/linear-scan.factor
+++ b/basis/compiler/cfg/linear-scan/linear-scan.factor
@ -40,9 +40,9 @@ IN: compiler.cfg.linear-scan
 : admissible-registers ( cfg -- regs )
    [ machine-registers ] dip
    frame-pointer?>> [
-        [ int-regs ] dip clone
+        [ int-regs ] dip [ clone ] map
        [ [ [ frame-reg ] dip remove ] change-at ] keep
-    ] unless ;
+    ] when ;

 : linear-scan ( cfg -- cfg' )
    dup dup admissible-registers (linear-scan) ;