[uim-commit] r2326 - in branches/r5rs/sigscheme: . test

[yamaken at freedesktop.org]

Author: yamaken
Date: 2005-12-03 06:40:18 -0800 (Sat, 03 Dec 2005)
New Revision: 2326

Modified:
   branches/r5rs/sigscheme/sigscheme.c
   branches/r5rs/sigscheme/test/test-exp.scm
Log:
* sigscheme/sigscheme.c
  - (SigScm_Initialize_internal): Provide "siod-bugs" if
    SCM_COMPAT_SIOD_BUGS
* sigscheme/test/test-exp.scm
  - Switch tests for let, let* and letrec if SCM_COMPAT_SIOD_BUGS


Modified: branches/r5rs/sigscheme/sigscheme.c
===================================================================
--- branches/r5rs/sigscheme/sigscheme.c	2005-12-03 14:32:09 UTC (rev 2325)
+++ branches/r5rs/sigscheme/sigscheme.c	2005-12-03 14:40:18 UTC (rev 2326)
@@ -211,6 +211,9 @@
 #if SCM_STRICT_R5RS
     ScmOp_provide(Scm_NewImmutableStringCopying("strict-r5rs"));
 #endif
+#if SCM_COMPAT_SIOD_BUGS
+    ScmOp_provide(Scm_NewImmutableStringCopying("siod-bugs"));
+#endif
     scm_initialized = TRUE;
 }
 

Modified: branches/r5rs/sigscheme/test/test-exp.scm
===================================================================
--- branches/r5rs/sigscheme/test/test-exp.scm	2005-12-03 14:32:09 UTC (rev 2325)
+++ branches/r5rs/sigscheme/test/test-exp.scm	2005-12-03 14:40:18 UTC (rev 2326)
@@ -252,9 +252,13 @@
 (assert-error  "let invalid form #3"
                (lambda ()
                  (let (a 1))))
-(assert-error  "let invalid form #4"
-               (lambda ()
-                 (let ((a)))))
+(if (provided? "siod-bugs")
+    (assert-equal? "let invalid form #4"
+                   (undef)
+                   (let ((a))))
+    (assert-error  "let invalid form #4"
+                   (lambda ()
+                     (let ((a))))))
 (assert-error  "let invalid form #5"
                (lambda ()
                  (let ((a 1 'excessive)))))
@@ -325,9 +329,13 @@
 (assert-error  "let* invalid form #3"
                (lambda ()
                  (let* (a 1))))
-(assert-error  "let* invalid form #4"
-               (lambda ()
-                 (let* ((a)))))
+(if (provided? "siod-bugs")
+    (assert-equal? "let* invalid form #4"
+                   (undef)
+                   (let* ((a))))
+    (assert-error  "let* invalid form #4"
+                   (lambda ()
+                     (let* ((a))))))
 (assert-error  "let* invalid form #5"
                (lambda ()
                  (let* ((a 1 'excessive)))))
@@ -361,9 +369,13 @@
 (assert-error  "letrec invalid form #3"
                (lambda ()
                  (letrec (a 1))))
-(assert-error  "letrec invalid form #4"
-               (lambda ()
-                 (letrec ((a)))))
+(if (provided? "siod-bugs")
+    (assert-equal? "letrec invalid form #4"
+                   (undef)
+                   (letrec ((a))))
+    (assert-error  "letrec invalid form #4"
+                   (lambda ()
+                     (letrec ((a))))))
 (assert-error  "letrec invalid form #5"
                (lambda ()
                  (letrec ((a 1 'excessive)))))