interpolate: number stack arguments from top of stack.

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

diff --git a/basis/interpolate/interpolate.factor b/basis/interpolate/interpolate.factor
index ccfcf6c7f27ff4439858656b74d9840019bbc633..d8c7c965891f3b7a8987ccfeb71192f3e16c8d55 100644 (file)
--- a/basis/interpolate/interpolate.factor
+++ b/basis/interpolate/interpolate.factor
@@ -44,7 +44,7 @@ TUPLE: stack-var n ;
             name>> quot call '[ _ @ present write ]
         ] [
             dup stack-var? [
-                n>> vars swap - 1 + '[ _ npick present write ]
+                n>> 1 + '[ _ npick present write ]
             ] [
                 '[ _ write ]
             ] if