multiline: require spaces after, similar to strings.parser

[factor.git] / basis / multiline / multiline.factor

diff --git a/basis/multiline/multiline.factor b/basis/multiline/multiline.factor
index 870729fd60504875d991d6cf820877a91d6566ea..11f75636fbea48f3accf5d4e40e61dae801ad80f 100644 (file)
--- a/basis/multiline/multiline.factor
+++ b/basis/multiline/multiline.factor
@@ -1,7 +1,8 @@
 ! Copyright (C) 2007 Daniel Ehrenberg
 ! See http://factorcode.org/license.txt for BSD license.
 USING: accessors combinators kernel lexer locals make math
-namespaces parser quotations sequences words ;
+namespaces parser quotations sequences strings.parser.private
+words ;
 IN: multiline
 
 <PRIVATE
@@ -53,7 +54,7 @@ SYNTAX: STRING:
     [
         lexer
         [ skip-n-chars + end-text lexer (scan-multiline-string) ]
-        change-column drop
+        change-column check-space
     ] "" make ;
 
 : advance-same-line ( lexer text -- )