diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2012-10-06 01:24:46 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2012-10-07 22:22:27 +0200 |
| commit | 81c7948d9acd3e203e5fd7185dbead33c11d4a92 (patch) | |
| tree | 426051c176c598970b8b0a2edf53238e216a698d /guix/build-system/trivial.scm | |
| parent | 2143cf7a50968f71a5750ecc1e1e4f343914d863 (diff) | |
build-system/{gnu,trivial-build}: Fix handling of #:guile argument.
* guix/build-system/gnu.scm (gnu-build)[guile-for-build]: Check whether
GUILE matches string? before checking whether it matches
derivation-path?.
* guix/build-system/trivial.scm (trivial-build)[guile-for-build]:
Likewise.
Diffstat (limited to 'guix/build-system/trivial.scm')
| -rw-r--r-- | guix/build-system/trivial.scm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/guix/build-system/trivial.scm b/guix/build-system/trivial.scm index 8759cb3f92..3598018749 100644 --- a/guix/build-system/trivial.scm +++ b/guix/build-system/trivial.scm @@ -31,14 +31,14 @@ ignored." (define guile-for-build (match guile + ((? package?) + (package-derivation store guile system)) + ((and (? string?) (? derivation-path?)) + guile) (#f ; the default (let* ((distro (resolve-interface '(distro packages base))) (guile (module-ref distro 'guile-final))) - (package-derivation store guile system))) - ((? package?) - (package-derivation store guile system)) - ((? derivation-path?) - guile))) + (package-derivation store guile system))))) (build-expression->derivation store name system builder inputs #:outputs outputs |