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

[jun0 at freedesktop.org]

Author: jun0
Date: 2006-01-07 00:03:02 -0800 (Sat, 07 Jan 2006)
New Revision: 2833

Modified:
   branches/r5rs/sigscheme/env.c
Log:
Fix bug committed in r2832.
* sigscheme/env.c
  - (scm_validate_formals): bug fix.

Modified: branches/r5rs/sigscheme/env.c
===================================================================
--- branches/r5rs/sigscheme/env.c	2006-01-07 07:51:02 UTC (rev 2832)
+++ branches/r5rs/sigscheme/env.c	2006-01-07 08:03:02 UTC (rev 2833)
@@ -276,7 +276,7 @@
 
     /* This loop goes infinite if the formals is circular. SigSchme expects
      * that user codes are sane here. */
-    for (len = 0; formals = CDR(formals); len++) {
+    for (len = 0; CONSP(formals); formals = CDR(formals), len++) {
         if (!SYMBOLP(CAR(formals)))
             return SCM_LISTLEN_ENCODE_ERROR(len);
     }