[bug#54578] [PATCH 1/2] guix: Add define-deprecated/public-alias.

[Liliana Marie Prikler]

* 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-module (guix deprecation)
 
             define-deprecated/public
             define-deprecated/alias
+            define-deprecated/public-alias
 
             warn-about-old-daemon
             warn-about-deprecation))
@@ -124,3 +125,10 @@ (define-syntax deprecated
         (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)))
-- 
2.34.0