Allow the full form of FLUID-LET with ACCESS.

diff --git a/src/runtime/mit-macros.scm b/src/runtime/mit-macros.scm
index 035dd7238a7393c60642b5b3c60a517133d4c397..d8412d4ba0da5b8b569e0fccb9dd7fed189c2e00 100644 (file)
--- a/src/runtime/mit-macros.scm
+++ b/src/runtime/mit-macros.scm
@@ -946,7 +946,7 @@ USA.
   (spar-transformer->runtime
    (delay
      (scons-rule
-        `(,(let-bindings-pattern)
+        `((subform (* (subform (list any ,(optional-value-pattern)))))
           (+ any))
        (lambda (bindings body-forms)
         (let ((ids (map car bindings))

diff --git a/tests/runtime/test-access.scm b/tests/runtime/test-access.scm
index de739ca0a066b61eb2c2352d80bab755c4b33cd8..7f8451c2f550d6d3579459cd2d21c5b67650fe01 100644 (file)
--- a/tests/runtime/test-access.scm
+++ b/tests/runtime/test-access.scm
@@ -34,12 +34,10 @@ USA.
 
 (define-test 'fluid-let/access
   (lambda ()
-    (expect-failure
-     (lambda ()
-       (assert-eqv
-        ((eval '(lambda (env)
-                  (fluid-let (((access quagga env) 123))
-                    ((access eland env))))
-               system-global-environment)
-         loser-env)
-        123)))))
+    (assert-eqv
+     ((eval '(lambda (env)
+               (fluid-let (((access quagga env) 123))
+                 ((access eland env))))
+            system-global-environment)
+      loser-env)
+     123)))