steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/interpolate/interpolate.factor
View File

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