summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2020-01-10 11:27:29 +0100
committerLudovic Courtès <ludo@gnu.org>2020-01-12 00:19:09 +0100
commit6e36f1cabdac4f7e306002fe56e84eadd1dfdbbe (patch)
tree1d6d9fc24361d3e4f9216f7d7de7efe7ba6260b5
parent6b9839e29a7939cc9ada3f44d9d8863de720f5b4 (diff)
deprecation: Add a two-element form for simple aliases.
* guix/deprecation.scm (define-deprecated): Add a two-element form for simple aliases: (define-deprecated old new).
-rw-r--r--guix/deprecation.scm8
1 files changed, 6 insertions, 2 deletions
diff --git a/guix/deprecation.scm b/guix/deprecation.scm
index 468b2e9b7b..04d4d4a337 100644
--- a/guix/deprecation.scm
+++ b/guix/deprecation.scm
@@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2019 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2019, 2020 Ludovic Courtès <ludo@gnu.org>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -44,6 +44,7 @@
"Define a deprecated variable or procedure, along these lines:
(define-deprecated foo bar 42)
+ (define-deprecated old new)
(define-deprecated (baz x y) qux (qux y x))
This will write a deprecation warning to GUIX-WARNING-PORT."
@@ -73,7 +74,10 @@ This will write a deprecation warning to GUIX-WARNING-PORT."
#'(real args (... ...)))
(id
(identifier? #'id)
- #'real))))))))))
+ #'real)))))))
+ ((_ variable alias)
+ (identifier? #'alias)
+ #'(define-deprecated variable alias alias)))))
(define-syntax-rule (define-deprecated/alias deprecated replacement)
"Define as an alias a deprecated variable, procedure, or macro, along