mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-16 16:50:21 +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

14151
module/ice-9/psyntax-pp.scm
View file

File diff suppressed because it is too large Load diff

7
module/ice-9/psyntax.scm
View file

@ -1204,7 +1204,12 @@
((call) (expand-application (expand (car e) r w mod) e r w s mod))
((begin-form)
(syntax-case e ()
((_ e1 e2 ...) (expand-sequence #'(e1 e2 ...) r w s mod))))
((_ e1 e2 ...) (expand-sequence #'(e1 e2 ...) r w s mod))
((_)
(begin
(issue-deprecation-warning
"Sequences of zero expressions are deprecated. Use *unspecified*.")
(expand-void)))))
((local-syntax-form)
(expand-local-syntax value e r w s mod expand-sequence))
((eval-when-form)