summaryrefslogtreecommitdiff
path: root/test-suite/tests/syntax.test
diff options
context:
space:
mode:
Diffstat (limited to 'test-suite/tests/syntax.test')
-rw-r--r--test-suite/tests/syntax.test8
1 files changed, 5 insertions, 3 deletions
diff --git a/test-suite/tests/syntax.test b/test-suite/tests/syntax.test
index ccc8d9804..5163bac00 100644
--- a/test-suite/tests/syntax.test
+++ b/test-suite/tests/syntax.test
@@ -81,6 +81,8 @@
(define exception:too-many-args
"too many arguments")
+(define exception:zero-expression-sequence
+ "sequence of zero expressions")
;; (put 'pass-if-syntax-error 'scheme-indent-function 1)
@@ -148,12 +150,12 @@
(with-test-prefix "begin"
- (pass-if "legal (begin)"
+ (pass-if "valid (begin)"
(eval '(begin (begin) #t) (interaction-environment)))
(if (not (include-deprecated-features))
- (pass-if-syntax-error "illegal (begin)"
- exception:generic-syncase-error
+ (pass-if-syntax-error "invalid (begin)"
+ exception:zero-expression-sequence
(eval '(begin (if #t (begin)) #t) (interaction-environment)))))
(define-syntax matches?