From 7c3b6b2e2660b229630601e82410f4f0e24bdee7 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Mon, 13 Jan 2020 21:52:01 +0100 Subject: gnu: guile-readline: Add "guile3.0-readline" variant. * gnu/packages/guile.scm (make-guile-readline): Add optional 'name' parameter and honor it. (guile3.0-readline): New variable. --- gnu/packages/guile.scm | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/gnu/packages/guile.scm b/gnu/packages/guile.scm index cb22242c53..8d3f43e3f7 100644 --- a/gnu/packages/guile.scm +++ b/gnu/packages/guile.scm @@ -307,9 +307,9 @@ without requiring the source code to be rewritten.") (properties '((ftp-server . "alpha.gnu.org") (upstream-name . "guile"))))) -(define (make-guile-readline guile) +(define* (make-guile-readline guile #:optional (name "guile-readline")) (package - (name "guile-readline") + (name name) (version (package-version guile)) (source (package-source guile)) (build-system gnu-build-system) @@ -366,6 +366,9 @@ GNU@tie{}Guile. Use the @code{(ice-9 readline)} module and call its (define-public guile-readline (make-guile-readline guile-2.2)) +(define-public guile3.0-readline + (make-guile-readline guile-next "guile3.0-readline")) + (define (guile-variant-package-name prefix) (lambda (name) "Return NAME with PREFIX instead of \"guile-\", when applicable." -- cgit v1.2.3