From 43b6f6496aca141cbdbe8cd55e02240c796248dd Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Sun, 4 Aug 2013 15:37:53 +0900 Subject: [PATCH] Fixing source line miscalculation in read-line for non-string-stream builds. --- lib/chibi/io/io.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lib/chibi/io/io.scm b/lib/chibi/io/io.scm index 9a7d30d4..1dc580d1 100644 --- a/lib/chibi/io/io.scm +++ b/lib/chibi/io/io.scm @@ -93,7 +93,9 @@ (let ((in (if (pair? o) (car o) (current-input-port))) (n (if (and (pair? o) (pair? (cdr o))) (car (cdr o)) 8192))) (let ((res (%read-line n in))) - (port-line-set! in (+ 1 (port-line in))) + (cond-expand + (string-streams + (port-line-set! in (+ 1 (port-line in))))) (if (not res) eof (let ((len (string-length res)))