factor: use ??if instead of ?if-old

[factor.git] / basis / compiler / cfg / intrinsics / misc / misc.factor

diff --git a/basis/compiler/cfg/intrinsics/misc/misc.factor b/basis/compiler/cfg/intrinsics/misc/misc.factor
index b32f6c2c6f5a1585fcd30fbaabf39149e65b9510..76603d5bfbbfcf967b41786fdee1a06b56b8f343 100644 (file)
--- a/basis/compiler/cfg/intrinsics/misc/misc.factor
+++ b/basis/compiler/cfg/intrinsics/misc/misc.factor
@@ -15,26 +15,26 @@ IN: compiler.cfg.intrinsics.misc
     [ [ cc= ^^compare-integer ] binary-op ] [ [ cc= ^^compare ] binary-op ] if ;
 
 : emit-special-object ( block node -- block' )
-    dup node-input-infos first literal>> [
+    [ node-input-infos first literal>> ] [
         ds-drop
         vm-special-object-offset ^^vm-field
         ds-push
-    ] [ emit-primitive ] ?if ;
+    ] [ emit-primitive ] ??if ;
 
 : emit-set-special-object ( block node -- block' )
-    dup node-input-infos second literal>> [
+    [ node-input-infos second literal>> ] [
         ds-drop
         [ ds-pop ] dip vm-special-object-offset ##set-vm-field,
-    ] [ emit-primitive ] ?if ;
+    ] [ emit-primitive ] ??if ;
 
 : context-object-offset ( n -- n )
     cells "context-objects" context offset-of + ;
 
 : emit-context-object ( block node -- block' )
-    dup node-input-infos first literal>> [
+    [ node-input-infos first literal>> ] [
         "ctx" vm offset-of ^^vm-field
         ds-drop swap context-object-offset cell /i 0 ^^slot-imm ds-push
-    ] [ emit-primitive ] ?if ;
+    ] [ emit-primitive ] ??if ;
 
 : emit-identity-hashcode ( -- )
     [