~ chicken-core (chicken-5) 7e1f2568b145fab7db5d8af94e14eb70c4a022ca

commit 7e1f2568b145fab7db5d8af94e14eb70c4a022ca
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Thu Mar 4 13:05:44 2010 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Thu Mar 4 13:05:44 2010 +0100

    incorrect change for line-number output in read error/warning

diff --git a/library.scm b/library.scm
index 2c368c9b..2617c160 100644
--- a/library.scm
+++ b/library.scm
@@ -2232,7 +2232,7 @@ EOF
        ##sys#warn
        (let ((ln (##sys#port-line port)))
 	 (if (and ##sys#read-error-with-line-number ln)
-	     (string-append "(" ln ") " msg)
+	     (string-append "(line " (##sys#number->string ln) ") " msg)
 	     msg) )
        args) ) ) )
 
@@ -2244,7 +2244,7 @@ EOF
        #:syntax-error
        (let ((ln (##sys#port-line port)))
 	 (if (and ##sys#read-error-with-line-number ln)
-	     (string-append "(" ln ") " msg)
+	     (string-append "(line " (##sys#number->string ln) ") " msg)
 	     msg) )
        args) ) ) )