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

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-12-04 06:57:11 -0800 (Sun, 04 Dec 2005)
New Revision: 2359

Modified:
   branches/r5rs/sigscheme/eval.c
Log:
* sigscheme/eval.c
  - (ScmExp_let, ScmExp_letstar, ScmExp_letrec): Fix the loose args
    check that causes SEGV


Modified: branches/r5rs/sigscheme/eval.c
===================================================================
--- branches/r5rs/sigscheme/eval.c	2005-12-04 14:49:00 UTC (rev 2358)
+++ branches/r5rs/sigscheme/eval.c	2005-12-04 14:57:11 UTC (rev 2359)
@@ -997,7 +997,7 @@
     for (; CONSP(bindings); bindings = CDR(bindings)) {
         binding = CAR(bindings);
 
-        if (NULLP(binding) || !SYMBOLP(var = CAR(binding)))
+        if (!CONSP(binding) || !SYMBOLP(var = CAR(binding)))
             ERR_OBJ("invalid binding form", binding);
 
 #if SCM_COMPAT_SIOD_BUGS
@@ -1049,7 +1049,7 @@
     for (; CONSP(bindings); bindings = CDR(bindings)) {
         binding = CAR(bindings);
 
-        if (NULLP(binding) || !SYMBOLP(var = CAR(binding)))
+        if (!CONSP(binding) || !SYMBOLP(var = CAR(binding)))
             ERR_OBJ("invalid binding form", binding);
 
 #if SCM_COMPAT_SIOD_BUGS
@@ -1105,7 +1105,7 @@
     for (; CONSP(bindings); bindings = CDR(bindings)) {
         binding = CAR(bindings);
 
-        if (NULLP(binding) || !SYMBOLP(var = CAR(binding)))
+        if (!CONSP(binding) || !SYMBOLP(var = CAR(binding)))
             ERR_OBJ("invalid binding form", binding);
 
 #if SCM_COMPAT_SIOD_BUGS