diff options
author | Andy Wingo <wingo@pobox.com> | 2011-12-21 20:10:42 -0500 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2011-12-21 20:14:59 -0500 |
commit | dc65d1cf5b59daafdff23d48a48da7f13982efc9 (patch) | |
tree | aa3e25081bc6d7f5492d370210cc5d6845477715 /test-suite/tests/syntax.test | |
parent | a2c66014cf4b8799812e45eedbb9b1a2c61236b0 (diff) | |
download | guile-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.test | 7 |
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 (<>) |