Fixing multiline error

diff --git a/basis/multiline/multiline-tests.factor b/basis/multiline/multiline-tests.factor
index 25acd9400b9cbb98490b8ad403f09d5eb88db600..153b6cedbe7b3709bd0c999bfb535725b7915e18 100644 (file)
--- a/basis/multiline/multiline-tests.factor
+++ b/basis/multiline/multiline-tests.factor
@@ -16,3 +16,6 @@ bar
 world"> ] unit-test
 
 [ "hello" "world" ] [ <" hello"> <" world"> ] unit-test
+
+[ "\nhi" ] [ <"
+hi"> ] unit-test

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*