From 9ab158a457be5267ca03f7dd3f511b7308ca0ab6 Mon Sep 17 00:00:00 2001 From: Liliana Marie Prikler Date: Tue, 29 Mar 2022 21:16:35 +0200 Subject: 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-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))) -- cgit v1.2.3