summaryrefslogtreecommitdiff
path: root/test-suite/tests/syntax.test
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2011-12-21 20:10:42 -0500
committerAndy Wingo <wingo@pobox.com>2011-12-21 20:14:59 -0500
commitdc65d1cf5b59daafdff23d48a48da7f13982efc9 (patch)
treeaa3e25081bc6d7f5492d370210cc5d6845477715 /test-suite/tests/syntax.test
parenta2c66014cf4b8799812e45eedbb9b1a2c61236b0 (diff)
downloadguile-dc65d1cf5b59daafdff23d48a48da7f13982efc9.tar.gz
document invalidity of (begin) as expression; add back-compat shim
* doc/ref/api-control.texi (begin): Update to distinguish between splicing begin and sequencing begin. * module/ice-9/psyntax.scm (expand-expr): Add a back-compatibility shim for `(begin)'. * module/ice-9/psyntax-pp.scm: Regenerate. * test-suite/tests/syntax.test: Update to run illegal (begin) test only if we are not including deprecated features.
Diffstat (limited to 'test-suite/tests/syntax.test')
-rw-r--r--test-suite/tests/syntax.test7
1 files changed, 4 insertions, 3 deletions
diff --git a/test-suite/tests/syntax.test b/test-suite/tests/syntax.test
index f6eb28a67..ac9319dc5 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 (<>)