From b34b8522af7773065215e785791400f2ace06ea9 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sun, 26 Jun 2016 02:03:31 -0700
Subject: [PATCH] modern: don't expand -- yet

---
 core/modern/modern.factor | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/core/modern/modern.factor b/core/modern/modern.factor
index 7c917acf36..9a1cb46523 100644
--- a/core/modern/modern.factor
+++ b/core/modern/modern.factor
@@ -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