mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-28 16:00:22 +02:00
Code Activity

begin-deprecated using syntax-case

Browse source 
* module/ice-9/boot-9.scm (begin-deprecated): In terms of syntax-case.
This commit is contained in:
Andy Wingo 2010-06-22 21:43:09 +02:00
parent ea28e98134
commit ec0f307ee9
1 changed files with 7 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

13
module/ice-9/boot-9.scm
View file

@ -516,13 +516,14 @@ If there is no handler at all, Guile prints an error and then exits."
;;; {Deprecation}
;;;
;;; Depends on: defmacro
;;;
(defmacro begin-deprecated forms
(if (include-deprecated-features)
`(begin ,@forms)
`(begin)))
(define-syntax begin-deprecated
(lambda (x)
(syntax-case x ()
((_ form form* ...)
(if (include-deprecated-features)
#'(begin form form* ...)
#'(begin))))))