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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-11-03 00:14:47 -0800 (Thu, 03 Nov 2005)
New Revision: 1953

Modified:
   branches/r5rs/sigscheme/read.c
Log:
* sigscheme/read.c
  - (read_list): Cosmetic change


Modified: branches/r5rs/sigscheme/read.c
===================================================================
--- branches/r5rs/sigscheme/read.c	2005-11-03 06:59:14 UTC (rev 1952)
+++ branches/r5rs/sigscheme/read.c	2005-11-03 08:14:47 UTC (rev 1953)
@@ -272,9 +272,9 @@
                 cur_line = ScmBaseCharPort_line_number(basecport);
                 ERR("EOF inside list at line %d. (starting from line %d)",
                     cur_line, start_line);
+            } else {
+                SigScm_Error("EOF inside list.");
             }
-            else
-                SigScm_Error("EOF inside list.");
         } else if (c == closeParen) {
             DISCARD_LOOKAHEAD(port);
             return list_head;