From f69cf40741f6ba4e79a5e8f6dae407d96f4433ec Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Mon, 11 May 2020 13:01:11 +0200
Subject: 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(-)

(limited to 'gnu/packages/guile.scm')

diff --git a/gnu/packages/guile.scm b/gnu/packages/guile.scm
index f17a9aaf59..ef1e19c6b8 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)
 
-- 
cgit v1.2.3