From 055d9dbed5984393a4a1f4e8bbf17256f0f8a4c2 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sat, 6 Sep 2008 22:48:41 -0500
Subject: [PATCH] cleanup multiline

---
 basis/multiline/multiline.factor | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/basis/multiline/multiline.factor b/basis/multiline/multiline.factor
index 561af504c6..856b9ad456 100755
--- 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