[uim-commit] r1012 - branches/r5rs/sigscheme

[tkng at freedesktop.org]

Author: tkng
Date: 2005-07-23 03:36:15 -0700 (Sat, 23 Jul 2005)
New Revision: 1012

Modified:
   branches/r5rs/sigscheme/read.c
Log:
* sigscheme/read.c:
 -(read_list): Remember the line that list begins.


Modified: branches/r5rs/sigscheme/read.c
===================================================================
--- branches/r5rs/sigscheme/read.c	2005-07-23 10:08:29 UTC (rev 1011)
+++ branches/r5rs/sigscheme/read.c	2005-07-23 10:36:15 UTC (rev 1012)
@@ -232,6 +232,7 @@
     ScmObj list_head = SCM_NIL;
     ScmObj list_tail = SCM_NIL;
     ScmObj item = SCM_NIL;
+    int line = SCM_PORTINFO_LINE(port);
 
     int c = 0;
     while (1) {
@@ -243,7 +244,7 @@
 
         if (c == EOF) {
 	    if (SCM_PORT_PORTTYPE(port) == PORT_FILE)
-		SigScm_Error("EOF inside list. (starting from line %d)\n", SCM_PORTINFO_LINE(port) + 1);
+		SigScm_Error("EOF inside list. (starting from line %d)\n", line + 1);
 	    else
 		SigScm_Error("EOF inside list.\n");
         } else if (c == closeParen) {