factor: use ?call

[factor.git] / basis / compiler / cfg / ssa / construction / construction.factor

diff --git a/basis/compiler/cfg/ssa/construction/construction.factor b/basis/compiler/cfg/ssa/construction/construction.factor
index 0bec5cebcb4c64ece96d49d81f9df495e9183c34..6cb69d90836030a115303c902905fae88da05051 100644 (file)
--- a/basis/compiler/cfg/ssa/construction/construction.factor
+++ b/basis/compiler/cfg/ssa/construction/construction.factor
@@ -71,7 +71,7 @@ SYMBOLS: stacks pushed ;
 
 : top-name ( vreg -- vreg' )
     (top-name)
-    dup [ dup used-vregs get push-front ] when ;
+    [ dup used-vregs get push-front ] ?call ;
 
 RENAMING: ssa-rename [ gen-name ] [ top-name ] [ ]