interpolate: make interpolate and interpolate-locals symmetric.

[factor.git] / basis / functors / functors.factor

diff --git a/basis/functors/functors.factor b/basis/functors/functors.factor
index 95b0f9057af32febe243d8f88a1712d89699104d..eefa7a31da3f4a58c61ea4f7b08c686cc8157b58 100644 (file)
--- a/basis/functors/functors.factor
+++ b/basis/functors/functors.factor
@@ -123,7 +123,7 @@ FUNCTOR-SYNTAX: inline [ last-word make-inline ] append! ;
 FUNCTOR-SYNTAX: call-next-method T{ fake-call-next-method } suffix! ;
 
 : (INTERPOLATE) ( accum quot -- accum )
-    [ scan-token interpolate-locals ] dip
+    [ scan-token interpolate-locals-quot ] dip
     '[ _ with-string-writer @ ] suffix! ;
 
 PRIVATE>