From cbc5bc1412e8b67d3f5e1e5d156a854f964a2dbf Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Sun, 31 Aug 2008 02:28:58 -0500
Subject: [PATCH] Fix multiline

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

diff --git a/basis/multiline/multiline.factor b/basis/multiline/multiline.factor
index 1cc418a1f6..67bcc55a06 100755
--- a/basis/multiline/multiline.factor
+++ b/basis/multiline/multiline.factor
@@ -5,7 +5,7 @@ accessors ;
 IN: multiline
 
 : next-line-text ( -- str )
-    lexer get dup next-line text>> ;
+    lexer get dup next-line line-text>> ;
 
 : (parse-here) ( -- )
     next-line-text [
@@ -23,7 +23,7 @@ IN: multiline
     parse-here 1quotation define-inline ; parsing
 
 : (parse-multiline-string) ( start-index end-text -- end-index )
-    lexer get text>> [
+    lexer get line-text>> [
         2dup start
         [ rot dupd >r >r swap subseq % r> r> length + ] [
             rot tail % "\n" % 0