From ef569240d01c2cdd19b1c9d5ed151f26548f0490 Mon Sep 17 00:00:00 2001 From: Daniel Ehrenberg Date: Wed, 21 Jan 2009 00:44:43 -0600 Subject: [PATCH] Fixing multiline error --- basis/multiline/multiline-tests.factor | 3 +++ basis/multiline/multiline.factor | 7 ++++--- 2 files changed, 7 insertions(+), 3 deletions(-) diff --git a/basis/multiline/multiline-tests.factor b/basis/multiline/multiline-tests.factor index 25acd9400b..153b6cedbe 100644 --- 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 8737951944..a79c25750c 100644 --- 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* -- 2.34.1