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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-11-30 23:44:16 -0800 (Wed, 30 Nov 2005)
New Revision: 2298

Modified:
   branches/r5rs/sigscheme/read.c
Log:
* sigscheme/read.c
  - (read_sexpression): Remove invalid boolean expression #T and #F


Modified: branches/r5rs/sigscheme/read.c
===================================================================
--- branches/r5rs/sigscheme/read.c	2005-12-01 07:40:19 UTC (rev 2297)
+++ branches/r5rs/sigscheme/read.c	2005-12-01 07:44:16 UTC (rev 2298)
@@ -244,9 +244,9 @@
             DISCARD_LOOKAHEAD(port);
             c1 = SCM_PORT_GET_CHAR(port);
             switch (c1) {
-            case 't': case 'T':
+            case 't':
                 return SCM_TRUE;
-            case 'f': case 'F':
+            case 'f':
                 return SCM_FALSE;
             case '(':
                 return ScmOp_list2vector(read_list(port, ')'));