[
"}" split1-slice
[
- >string dup string>number
+ >string
+ [ string>number ]
[ 1 + stack-var boa ]
- [ [ anon-var new ] [ named-var boa ] if-empty ] ?if-old ,
+ [ [ anon-var new ] [ named-var boa ] if-empty ] ?if ,
]
[ (parse-interpolate) ] bi*
] when*
[ interpolate ] with-string-writer ; inline
: interpolate-locals-quot ( str -- quot )
- [ dup search [ [ ] ] [ [ get ] ] ?if-old ] (interpolate-quot) ;
+ [ [ search ] [ [ ] ] [ [ get ] ] ?if ] (interpolate-quot) ;
MACRO: interpolate-locals ( str -- quot )
interpolate-locals-quot ;