From 4b74a29d8fd1af870a2db19d554923263abb7657 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Wed, 7 Sep 2016 18:16:49 +0200 Subject: gnu: guile-minikanren: Remove hard-coded Guile effective version. * gnu/packages/guile.scm (guile-minikanren)[arguments]: Remove (ice-9 match) from #:modules. Use 'open-pipe*' to determine the effective version of Guile, and use that to compute MODULE-DIR. --- gnu/packages/guile.scm | 17 ++++++++++++----- 1 file changed, 12 insertions(+), 5 deletions(-) (limited to 'gnu/packages/guile.scm') diff --git a/gnu/packages/guile.scm b/gnu/packages/guile.scm index 859e77a6e8..195af54c84 100644 --- a/gnu/packages/guile.scm +++ b/gnu/packages/guile.scm @@ -555,15 +555,22 @@ http:://json.org specification. These are the main features: "0r50jlpzi940jlmxyy3ddqqwmj5r12gb4bcv0ssini9v8km13xz6")))) (build-system trivial-build-system) (arguments - `(#:modules - ((guix build utils) - (ice-9 match)) + `(#:modules ((guix build utils)) #:builder (begin (use-modules (guix build utils) - (ice-9 match)) + (ice-9 match) + (ice-9 popen) + (ice-9 rdelim)) + (let* ((out (assoc-ref %outputs "out")) - (module-dir (string-append out "/share/guile/site/2.0")) + (guile (assoc-ref %build-inputs "guile")) + (effective (read-line + (open-pipe* OPEN_READ + (string-append guile "/bin/guile") + "-c" "(display (effective-version))"))) + (module-dir (string-append out "/share/guile/site/" + effective)) (source (assoc-ref %build-inputs "source")) (doc (string-append out "/share/doc/guile-minikanren")) (scm-files '("minikanren.scm" -- cgit v1.2.3