]> gitweb.factorcode.org Git - factor.git/commitdiff
Fix multiline
authorSlava Pestov <slava@slava-pestovs-macbook-pro.local>
Sun, 31 Aug 2008 07:28:58 +0000 (02:28 -0500)
committerSlava Pestov <slava@slava-pestovs-macbook-pro.local>
Sun, 31 Aug 2008 07:28:58 +0000 (02:28 -0500)
basis/multiline/multiline.factor

index 1cc418a1f6519da4f3963b7957dc404afce03335..67bcc55a06da1e1f1f2cd1f712ec2b129b0eaaa3 100755 (executable)
@@ -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