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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-12-16 16:12:21 -0800 (Fri, 16 Dec 2005)
New Revision: 2619

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


Modified: branches/r5rs/sigscheme/read.c
===================================================================
--- branches/r5rs/sigscheme/read.c	2005-12-17 00:10:46 UTC (rev 2618)
+++ branches/r5rs/sigscheme/read.c	2005-12-17 00:12:21 UTC (rev 2619)
@@ -647,9 +647,9 @@
                 ERR("invalid number literal");
 
             
-            if (!buf[1]                         /* '+' or '-' */
+            if (!buf[1]                           /* '+' or '-' */
 #if !SCM_STRICT_R5RS
-                || c == '-' && isalpha(buf[1])  /* '-sym' */
+                || (c == '-' && isalpha(buf[1]))  /* '-sym' */
 #endif
                 )
             {