From afdec2de61d1408d53f26c097543f420c9f3b4f9 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Mon, 19 May 2014 21:10:31 -0700
Subject: [PATCH] multiline: fix lexer eof detection.

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

diff --git a/basis/multiline/multiline.factor b/basis/multiline/multiline.factor
index 0bc616cbb6..6fe5bda7e4 100644
--- a/basis/multiline/multiline.factor
+++ b/basis/multiline/multiline.factor
@@ -12,7 +12,7 @@ ERROR: bad-heredoc identifier ;
     lexer get [ line-text>> ] [ column>> ] bi tail ;
 
 : next-line-text ( -- str )
-    lexer get dup next-line line-text>> ;
+    lexer get [ next-line ] [ line-text>> ] bi ;
 
 : (parse-here) ( -- )
     next-line-text [
@@ -38,9 +38,12 @@ SYNTAX: STRING:
 
 <PRIVATE
 
+: lexer-eof? ( lexer -- ? )
+    [ line>> ] [ text>> length ] bi <= ;
+
 :: (scan-multiline-string) ( i end -- j )
     lexer get line-text>> :> text
-    text [
+    lexer get lexer-eof? [
         end text i start* [| j |
             i j text subseq % j end length +
         ] [