diff options
Diffstat (limited to 'test-suite/tests/syntax.test')
-rw-r--r-- | test-suite/tests/syntax.test | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/test-suite/tests/syntax.test b/test-suite/tests/syntax.test index f53d196d5..968ab35c3 100644 --- a/test-suite/tests/syntax.test +++ b/test-suite/tests/syntax.test @@ -150,9 +150,10 @@ (pass-if "legal (begin)" (eval '(begin (begin) #t) (interaction-environment))) - (pass-if-syntax-error "illegal (begin)" - exception:generic-syncase-error - (eval '(begin (if #t (begin)) #t) (interaction-environment)))) + (if (not (include-deprecated-features)) + (pass-if-syntax-error "illegal (begin)" + exception:generic-syncase-error + (eval '(begin (if #t (begin)) #t) (interaction-environment))))) (define-syntax matches? (syntax-rules (<>) |