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

[kzk at freedesktop.org]

Author: kzk
Date: 2005-12-05 08:04:19 -0800 (Mon, 05 Dec 2005)
New Revision: 2374

Modified:
   branches/r5rs/sigscheme/eval.c
Log:
* sigscheme/eval.c
  - (ScmExp_cond_internal): handle bad dot clause


Modified: branches/r5rs/sigscheme/eval.c
===================================================================
--- branches/r5rs/sigscheme/eval.c	2005-12-05 14:54:07 UTC (rev 2373)
+++ branches/r5rs/sigscheme/eval.c	2005-12-05 16:04:19 UTC (rev 2374)
@@ -837,6 +837,15 @@
                 }
             }
 
+            /* 
+             * Handle the case like follows.
+             *
+             * (case 1
+             *   ((1) . 2))
+             */
+            if (!CONSP(exps))
+                ERR_OBJ("bad dot clause", clause);
+
             /*
              * If the selected <clause> uses the => alternate form, then the
              * <expression> is evaluated. Its value must be a procedure that