From 0955f2c7ebe9ac1f1a615247711397b89e4fc209 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Mon, 17 May 2010 05:18:40 -0400
Subject: [PATCH] compiler.cfg.linear-scan: fix typo

---
 basis/compiler/cfg/linear-scan/linear-scan.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/basis/compiler/cfg/linear-scan/linear-scan.factor b/basis/compiler/cfg/linear-scan/linear-scan.factor
index 53a7dd8e76..5f1abd3165 100644
--- 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) ;