diff options
| author | Liliana Marie Prikler <liliana.prikler@gmail.com> | 2022-03-29 21:16:35 +0200 |
|---|---|---|
| committer | Liliana Marie Prikler <liliana.prikler@gmail.com> | 2022-04-12 20:32:32 +0200 |
| commit | 9ab158a457be5267ca03f7dd3f511b7308ca0ab6 (patch) | |
| tree | e25b44e115466f1b4d3ddbed01a79806acf0f671 /guix/deprecation.scm | |
| parent | 1be7f437568ca6a238e2172a37720f5529021d49 (diff) | |
| download | guix-9ab158a457be5267ca03f7dd3f511b7308ca0ab6.tar guix-9ab158a457be5267ca03f7dd3f511b7308ca0ab6.tar.gz | |
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.scm | 8 |
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))) |