01/12: deprecation: Add a two-element form for simple aliases.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 6e36f1cabdac4f7e306002fe56e84eadd1dfdbbe
Author: Ludovic Courtès <address@hidden>
AuthorDate: Fri Jan 10 11:27:29 2020 +0100

    deprecation: Add a two-element form for simple aliases.
    
    * guix/deprecation.scm (define-deprecated): Add a two-element form for
    simple aliases: (define-deprecated old new).
---
 guix/deprecation.scm | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/guix/deprecation.scm b/guix/deprecation.scm
index 468b2e9..04d4d4a 100644
--- a/guix/deprecation.scm
+++ b/guix/deprecation.scm
@@ -1,5 +1,5 @@
 ;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2019 Ludovic Courtès <address@hidden>
+;;; Copyright © 2019, 2020 Ludovic Courtès <address@hidden>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -44,6 +44,7 @@
     "Define a deprecated variable or procedure, along these lines:
 
   (define-deprecated foo bar 42)
+  (define-deprecated old new)
   (define-deprecated (baz x y) qux (qux y x))
 
 This will write a deprecation warning to GUIX-WARNING-PORT."
@@ -73,7 +74,10 @@ This will write a deprecation warning to GUIX-WARNING-PORT."
                     #'(real args (... ...)))
                    (id
                     (identifier? #'id)
-                    #'real))))))))))
+                    #'real)))))))
+      ((_ variable alias)
+       (identifier? #'alias)
+       #'(define-deprecated variable alias alias)))))
 
 (define-syntax-rule (define-deprecated/alias deprecated replacement)
   "Define as an alias a deprecated variable, procedure, or macro, along