Fix <"

2008-09-24 19:04:44 -05:00 · 2008-09-24 19:04:44 -05:00 · eae7e95d9b
parent 4b19afdb4e
commit eae7e95d9b
2 changed files with 5 additions and 2 deletions
--- a/basis/multiline/multiline-tests.factor
+++ b/basis/multiline/multiline-tests.factor
@ -10,4 +10,7 @@ bar
 [ "foo\nbar\n" ] [ test-it ] unit-test
 [ "foo\nbar\n" ] [ <" foo
 bar
- "> ] unit-test
+"> ] unit-test
+
+[ "hello\nworld" ] [ <" hello
+world"> ] unit-test
--- a/basis/multiline/multiline.factor
+++ b/basis/multiline/multiline.factor
@ -38,7 +38,7 @@ PRIVATE>
 : parse-multiline-string ( end-text -- str )
    [
        lexer get [ swap (parse-multiline-string) ] change-column drop
-    ] "" make rest-slice but-last ;
+    ] "" make rest ;

 : <"
    "\">" parse-multiline-string parsed ; parsing