factor: use ?call

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

diff --git a/basis/compiler/cfg/linear-scan/live-intervals/live-intervals.factor b/basis/compiler/cfg/linear-scan/live-intervals/live-intervals.factor
index 3cede64e85e91b02ba896730098ecc98a6d4cf8f..88d5cb443277b1756c23a7206744eb817068737a 100644 (file)
--- a/basis/compiler/cfg/linear-scan/live-intervals/live-intervals.factor
+++ b/basis/compiler/cfg/linear-scan/live-intervals/live-intervals.factor
@@ -37,7 +37,7 @@ TUPLE: live-interval-state
 
 :: find-use ( insn# live-interval -- vreg-use/f )
     insn# live-interval (find-use)
-    dup [ dup n>> insn# = [ drop f ] unless ] when ;
+    [ dup n>> insn# = [ drop f ] unless ] ?call ;
 
 : <live-interval> ( vreg -- live-interval )
     \ live-interval-state new