Fixing multiline error

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

diff --git a/basis/multiline/multiline.factor b/basis/multiline/multiline.factor
index 87379519442c68546a2814ab64e4d5c6ba83d61e..a79c25750c85affeecad4bc4a6c669b750c492c7 100644 (file)
--- a/basis/multiline/multiline.factor
+++ b/basis/multiline/multiline.factor
@@ -30,9 +30,10 @@ PRIVATE>
 :: (parse-multiline-string) ( i end -- j )
     lexer get line-text>> :> text
     text [
-        end text i start*
-        [| j | i j text subseq % j end length + ] [
-            text i tail % CHAR: \n ,
+        end text i start* [| j |
+            i j text subseq % j end length +
+        ] [
+            text i short tail % CHAR: \n ,
             lexer get next-line
             0 end (parse-multiline-string)
         ] if*