interpolate: don't break backwards compatibility.

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

diff --git a/basis/interpolate/interpolate.factor b/basis/interpolate/interpolate.factor
index c1595e2a3749589066f6560d20599bd87355696d..ccfcf6c7f27ff4439858656b74d9840019bbc633 100644 (file)
--- a/basis/interpolate/interpolate.factor
+++ b/basis/interpolate/interpolate.factor
@@ -57,11 +57,11 @@ TUPLE: stack-var n ;
 
 PRIVATE>
 
-MACRO: interpolate. ( str -- )
+MACRO: interpolate ( str -- )
     [ [ get ] ] interpolate-quot ;
 
-: interpolate ( str -- newstr )
-    [ interpolate. ] with-string-writer ; inline
+: interpolate>string ( str -- newstr )
+    [ interpolate ] with-string-writer ; inline
 
 : interpolate-locals ( str -- quot )
     [ dup search [ [ ] ] [ [ get ] ] ?if ] interpolate-quot ;