From 8a3464589b7a9737b3eea1f5e6726e536f633b57 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Sun, 2 Dec 2018 01:34:41 +0000 Subject: [PATCH] Allow the full form of FLUID-LET with ACCESS. --- src/runtime/mit-macros.scm | 2 +- tests/runtime/test-access.scm | 16 +++++++--------- 2 files changed, 8 insertions(+), 10 deletions(-) diff --git a/src/runtime/mit-macros.scm b/src/runtime/mit-macros.scm index 035dd7238..d8412d4ba 100644 --- 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 de739ca0a..7f8451c2f 100644 --- 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))) -- 2.25.1