03/04: guix: Add define-deprecated/public-alias.

[guix-commits]

lilyp pushed a commit to branch master
in repository guix.

commit 9ab158a457be5267ca03f7dd3f511b7308ca0ab6
Author: Liliana Marie Prikler <liliana.prikler@gmail.com>
AuthorDate: Tue Mar 29 21:16:35 2022 +0200

    guix: Add define-deprecated/public-alias.
    
    * guix/deprecation.scm (define-deprecated/public-alias): New variable.
---
 guix/deprecation.scm | 8 ++++++++
 1 file changed, 8 insertions(+)

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)))