Make interpolate-locals public again

db4
Slava Pestov 2009-01-25 23:21:48 -06:00
parent acd49fa557
commit 255680160d
1 changed files with 3 additions and 3 deletions

View File

@ -30,14 +30,14 @@ TUPLE: interpolate-var name ;
if
] map [ ] join ; inline
: interpolate-locals ( string -- quot )
[ search [ ] ] (interpolate) ;
PRIVATE>
MACRO: interpolate ( string -- )
[ [ get ] ] (interpolate) ;
: interpolate-locals ( string -- quot )
[ search [ ] ] (interpolate) ;
: I[
"]I" parse-multiline-string
interpolate-locals over push-all ; parsing