01/02: gnu: 'define-deprecated-guile3.0-package' actually exports <package> objects.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit f69cf40741f6ba4e79a5e8f6dae407d96f4433ec
Author: Ludovic Courtès <address@hidden>
AuthorDate: Mon May 11 13:01:11 2020 +0200

    gnu: 'define-deprecated-guile3.0-package' actually exports <package> 
objects.
    
    Until now, that macro would expand to something like:
    
      (export guile3.0-git)
    
    where 'guile3.0-git' is actually a macro (produced by
    'define-deprecated'), which would thus be skipped by 'fold-packages'.
    Consequently, "guix install guile3.0-git" would say that no such package
    exists.
    
    * gnu/packages/guile.scm (define-deprecated-guile3.0-package): Add
    'old-name' and export it.
---
 gnu/packages/guile.scm | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/guile.scm b/gnu/packages/guile.scm
index f17a9aa..ef1e19c 100644
--- a/gnu/packages/guile.scm
+++ b/gnu/packages/guile.scm
@@ -430,11 +430,19 @@ GNU@tie{}Guile.  Use the @code{(ice-9 readline)} module 
and call its
                          (datum->syntax
                           #'name
                           (string->symbol
-                           (->guile (symbol->string (syntax->datum 
#'name)))))))
+                           (->guile (symbol->string (syntax->datum
+                                                     #'name))))))
+                       (old-name
+                        ;; XXX: This is the name generated by
+                        ;; 'define-deprecated'.
+                        (datum->syntax
+                         #'name
+                         (symbol-append '% (syntax->datum #'name)
+                                        '/deprecated))))
            #'(begin
                (define-deprecated name package
                  (deprecated-package package-name package))
-               (export name))))))))
+               (export old-name))))))))
 
 (define-deprecated-guile3.0-package guile3.0-readline)