interpolate: number stack arguments from top of stack.

basis/interpolate/interpolate-docs.factor

@@ -7,7 +7,7 @@ HELP: interpolate
 { $examples
     { $example
         "USING: interpolate ;"
-        "\"Bob\" \"Alice\" \"Hi ${0}, it's ${1}.\" interpolate"
+        "\"Bob\" \"Alice\" \"Hi ${1}, it's ${0}.\" interpolate"
         "Hi Bob, it's Alice."
     }
     { $example

basis/interpolate/interpolate-tests.factor

@@ -3,9 +3,9 @@
 USING: interpolate io.streams.string namespaces tools.test locals ;
 IN: interpolate.tests
 
-{ "A B" } [ "A" "B" "${0} ${1}" interpolate>string ] unit-test
-{ "B A" } [ "A" "B" "${1} ${0}" interpolate>string ] unit-test
-{ "C A" } [ "A" "B" "C" "${2} ${0}" interpolate>string ] unit-test
+{ "A B" } [ "A" "B" "${1} ${0}" interpolate>string ] unit-test
+{ "B A" } [ "A" "B" "${0} ${1}" interpolate>string ] unit-test
+{ "C A" } [ "A" "B" "C" "${0} ${2}" interpolate>string ] unit-test
 
 { "Hello, Jane." } [
     "Jane" "name" set

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