diff options
Diffstat (limited to 'test-suite/tests/syntax.test')
-rw-r--r-- | test-suite/tests/syntax.test | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/test-suite/tests/syntax.test b/test-suite/tests/syntax.test index 927e50ad5..49dca1d24 100644 --- a/test-suite/tests/syntax.test +++ b/test-suite/tests/syntax.test @@ -388,6 +388,10 @@ (pass-if-exception "initial bindings are undefined" exception:used-before-defined (let ((x 1)) + ;; FIXME: the memoizer does initialize the var to undefined, but + ;; the Scheme evaluator has no way of checking what's an + ;; undefined value. Not sure how to do this. + (throw 'unresolved) (letrec ((x 1) (y x)) y)))) (with-test-prefix "bad bindings" |