mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-04 19:20:27 +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} ;;; {Deprecation}
;;; ;;;
;;; Depends on: defmacro
;;;
(defmacro begin-deprecated forms (define-syntax begin-deprecated
(if (include-deprecated-features) (lambda (x)
`(begin ,@forms) (syntax-case x ()
`(begin))) ((_ form form* ...)
(if (include-deprecated-features)
#'(begin form form* ...)
#'(begin))))))