cleanup multiline

2008-09-06 22:48:41 -05:00 · 2008-09-06 22:48:41 -05:00 · 055d9dbed5
parent 1ba054f021
commit 055d9dbed5
1 changed files with 2 additions and 3 deletions
--- a/basis/multiline/multiline.factor
+++ b/basis/multiline/multiline.factor
@ -37,9 +37,8 @@ PRIVATE>

 : parse-multiline-string ( end-text -- str )
    [
-        lexer get column>> swap (parse-multiline-string)
-        lexer get (>>column)
-    ] "" make rest but-last ;
+        lexer get [ swap (parse-multiline-string) ] change-column drop
+    ] "" make rest-slice but-last ;

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