mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-19 18:20:22 +02:00
Code Activity

document invalidity of (begin) as expression; add back-compat shim

Browse source 
* 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.
This commit is contained in:
Andy Wingo 2011-12-21 20:10:42 -05:00
parent a2c66014cf
commit dc65d1cf5b
4 changed files with 7225 additions and 7017 deletions
Download patch file Download diff file Expand all files Collapse all files

7
test-suite/tests/syntax.test
View file

@ -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 (<>)