summaryrefslogtreecommitdiff
path: root/guix/deprecation.scm
diff options
context:
space:
mode:
authorLiliana Marie Prikler <liliana.prikler@gmail.com>2022-03-29 21:16:35 +0200
committerLiliana Marie Prikler <liliana.prikler@gmail.com>2022-04-12 20:32:32 +0200
commit9ab158a457be5267ca03f7dd3f511b7308ca0ab6 (patch)
treee25b44e115466f1b4d3ddbed01a79806acf0f671 /guix/deprecation.scm
parent1be7f437568ca6a238e2172a37720f5529021d49 (diff)
guix: Add define-deprecated/public-alias.
* guix/deprecation.scm (define-deprecated/public-alias): New variable.
Diffstat (limited to 'guix/deprecation.scm')
-rw-r--r--guix/deprecation.scm8
1 files changed, 8 insertions, 0 deletions
diff --git a/guix/deprecation.scm b/guix/deprecation.scm
index 09a27789c9..8147a01e24 100644
--- a/guix/deprecation.scm
+++ b/guix/deprecation.scm
@@ -25,6 +25,7 @@
define-deprecated/public
define-deprecated/alias
+ define-deprecated/public-alias
warn-about-old-daemon
warn-about-deprecation))
@@ -124,3 +125,10 @@ This will write a deprecation warning to GUIX-WARNING-PORT."
(id
(identifier? #'id)
#'replacement)))))
+
+(define-syntax-rule (define-deprecated/public-alias deprecated replacement)
+ "Like define-deprecated/alias, but exporting DEPRECATED.
+It is assumed, that REPLACEMENT is already public."
+ (begin
+ (define-deprecated/alias deprecated replacement)
+ (export deprecated)))