diff options
author | Ludovic Courtès <ludo@gnu.org> | 2020-01-13 21:52:01 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2020-01-13 23:13:04 +0100 |
commit | 7c3b6b2e2660b229630601e82410f4f0e24bdee7 (patch) | |
tree | 52ae4759c7c22d1bc70d628293d9506901f06f69 | |
parent | 8fcb607780dc9809949c573865c5e1a04770d0c5 (diff) | |
download | patches-7c3b6b2e2660b229630601e82410f4f0e24bdee7.tar patches-7c3b6b2e2660b229630601e82410f4f0e24bdee7.tar.gz |
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.
-rw-r--r-- | gnu/packages/guile.scm | 7 |
1 files 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." |