factor: trim using lists

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

diff --git a/basis/multiline/multiline.factor b/basis/multiline/multiline.factor
index c36e6c49ce952ee02e20466ec86beca1a725c430..d984095dfe355d60a7ab2cf0b278e4282e013c68 100644 (file)
--- a/basis/multiline/multiline.factor
+++ b/basis/multiline/multiline.factor
@@ -1,11 +1,10 @@
 ! 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
+strings.parser.private words ;
 IN: multiline
 
-ERROR: bad-heredoc identifier ;
-
 <PRIVATE
 
 : rest-of-line ( lexer -- seq )
@@ -55,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 -- )