~ruther/guix-local: gnu: 'define-deprecated-guile3.0-package' actually exports <package> objects.

f69cf40741f6ba4e79a5e8f6dae407d96f4433ec — Ludovic Courtès 6 years ago fbe17e2

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.

patch browse .tar.gz .zip

1 files changed, 10 insertions(+), 2 deletions(-)

M gnu/packages/guile.scm

M gnu/packages/guile.scm => gnu/packages/guile.scm +10 -2

@@ 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)