factor: ?if to ?if-old

[factor.git] / basis / interpolate / interpolate.factor

diff --git a/basis/interpolate/interpolate.factor b/basis/interpolate/interpolate.factor
index 40934b0f8e06bbf354e0b79246d186b097edcec0..1c08e878fa4f1c46bb90cedfe2c0a80c0a97cd2c 100644 (file)
--- a/basis/interpolate/interpolate.factor
+++ b/basis/interpolate/interpolate.factor
@@ -23,7 +23,7 @@ TUPLE: anon-var ;
                 [
                     >string dup string>number
                     [ 1 + stack-var boa ]
-                    [ [ anon-var new ] [ named-var boa ] if-empty ] ?if ,
+                    [ [ anon-var new ] [ named-var boa ] if-empty ] ?if-old ,
                 ]
                 [ (parse-interpolate) ] bi*
             ] when*
@@ -77,7 +77,7 @@ MACRO: interpolate ( str -- quot )
     [ interpolate ] with-string-writer ; inline
 
 : interpolate-locals-quot ( str -- quot )
-    [ dup search [ [ ] ] [ [ get ] ] ?if ] (interpolate-quot) ;
+    [ dup search [ [ ] ] [ [ get ] ] ?if-old ] (interpolate-quot) ;
 
 MACRO: interpolate-locals ( str -- quot )
     interpolate-locals-quot ;