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

modern: don't expand -- yet

locals-and-roots
Doug Coleman 2016-06-26 02:03:31 -07:00
parent 434c864f0a
commit b34b8522af
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
core/modern/modern.factor
View File

@ -224,7 +224,9 @@ ERROR: closing-delimiter-required opening-delimiter ;
:: make-matched-literal ( payload closing tag opening-delimiter class -- literal ) :: make-matched-literal ( payload closing tag opening-delimiter class -- literal )
class new class new
tag >string >>tag tag >string >>tag
payload postprocess-lexed opening-delimiter "\"" = [ split-double-dash ] unless >>payload ! TODO: split -- here or elsewhere?
! payload postprocess-lexed opening-delimiter "\"" = [ split-double-dash ] unless >>payload
payload postprocess-lexed >>payload
tag closing [ dup tag-literal? [ lexed-underlying ] when ] bi@ ?span-slices >>underlying tag closing [ dup tag-literal? [ lexed-underlying ] when ] bi@ ?span-slices >>underlying
opening-delimiter >string >>delimiter opening-delimiter >string >>delimiter