factor: use ?call

[factor.git] / basis / compiler / cfg / linear-scan / allocation / allocation.factor

diff --git a/basis/compiler/cfg/linear-scan/allocation/allocation.factor b/basis/compiler/cfg/linear-scan/allocation/allocation.factor
index f3f48beed20fcfc324dbc23035333d5167b74093..aa980dfe0a36c21b7bcd23d4b9bc79b464273334 100644 (file)
--- a/basis/compiler/cfg/linear-scan/allocation/allocation.factor
+++ b/basis/compiler/cfg/linear-scan/allocation/allocation.factor
@@ -35,7 +35,7 @@ IN: compiler.cfg.linear-scan.allocation
 : spill-at-sync-point? ( sync-point live-interval -- ? )
     {
         [ drop keep-dst?>> not ]
-        [ [ n>> ] dip find-use dup [ def-rep>> ] when not ]
+        [ [ n>> ] dip find-use [ def-rep>> ] ?call not ]
     } 2|| ;
 
 : spill-at-sync-point ( sync-point live-interval -- ? )