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

interpolate: [I -> I[[

modern-harvey2
Doug Coleman 2017-08-26 18:02:57 -05:00
parent 55df44923f
commit 13d9a78ec6
2 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/interpolate/interpolate-tests.factor
View File

@ -40,6 +40,6 @@ IN: interpolate.tests
{ "Oops, I accidentally the whole economy..." } [ { "Oops, I accidentally the whole economy..." } [
let[ let[
"economy" :> noun "economy" :> noun
"accidentally" [ [I Oops, I ${0} the whole ${noun}...I] ] with-string-writer "accidentally" [ I[[ Oops, I ${0} the whole ${noun}...]] ] with-string-writer
] ]
] unit-test ] unit-test

8
basis/interpolate/interpolate.factor
View File

@ -85,6 +85,10 @@ MACRO: interpolate-locals ( str -- quot )
: interpolate-locals>string ( str -- newstr ) : interpolate-locals>string ( str -- newstr )
[ interpolate-locals ] with-string-writer ; inline [ interpolate-locals ] with-string-writer ; inline
SYNTAX: [I : define-interpolate-syntax ( accum string -- accum )
"I]" parse-multiline-string parse-multiline-string
interpolate-locals-quot append! ; interpolate-locals-quot append! ;
SYNTAX: I[[ "]]" define-interpolate-syntax ;
SYNTAX: I[=[ "]=]" define-interpolate-syntax ;
SYNTAX: I[==[ "]==]" define-interpolate-syntax ;