Make interpolate-locals public again

db4
Slava Pestov 2009-01-26 02:39:15 -06:00
parent 3458f8bbef
commit 1c65b61f80
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