me/guix
Archived
1
0
Fork 0
Code Activity

deprecation: Add 'define-deprecated/alias'.

Browse source 
* guix/deprecation.scm (define-deprecated/alias): New macro.
This commit is contained in:
Ludovic Courtès 2019-01-21 15:30:14 +01:00
parent 6185732390
commit 1b7dd99738
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 21 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
guix/deprecation.scm
View file

@ -20,7 +20,7 @@
#:use-module (guix i18n) #:use-module (guix i18n)
#:use-module (ice-9 format) #:use-module (ice-9 format)
#:export (define-deprecated #:export (define-deprecated
without-deprecation-warnings define-deprecated/alias
deprecation-warning-port)) deprecation-warning-port))
;;; Commentary: ;;; Commentary:
@ -87,3 +87,23 @@ This will write a deprecation warning to DEPRECATION-WARNING-PORT."
(id (id
(identifier? #'id) (identifier? #'id)
#'real)))))))))) #'real))))))))))
(define-syntax-rule (define-deprecated/alias deprecated replacement)
"Define as an alias a deprecated variable, procedure, or macro, along
these lines:
(define-deprecated/alias nix-server? store-connection?)
where 'nix-server?' is the deprecated name for 'store-connection?'.
This will write a deprecation warning to DEPRECATION-WARNING-PORT."
(define-syntax deprecated
(lambda (s)
(warn-about-deprecation 'deprecated (syntax-source s)
#:replacement 'replacement)
(syntax-case s ()
((_ args (... ...))
#'(replacement args (... ...)))
(id
(identifier? #'id)
#'replacement)))))