[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/02: gnu: 'define-deprecated-guile3.0-package' actually exports <packa
From: |
guix-commits |
Subject: |
01/02: gnu: 'define-deprecated-guile3.0-package' actually exports <package> objects. |
Date: |
Mon, 11 May 2020 07:03:43 -0400 (EDT) |
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)