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

View File

@ -224,7 +224,9 @@ ERROR: closing-delimiter-required opening-delimiter ;
:: make-matched-literal ( payload closing tag opening-delimiter class -- literal )
class new
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
opening-delimiter >string >>delimiter