mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-26 06:18:07 -05:00
build-system/asdf: Don't fail in sbcl-package->cl-source-package on non-package inputs.
Inputs can be non-packages, for instance (origin ...). sbcl-package->cl-source-package used to fail if such inputs were present in the parent sbcl-* package. * guix/build-system/asdf.scm (package-with-build-system): Fix 'has-from-build-system?' function.
This commit is contained in:
parent
ad9b5cd19b
commit
56db786591
1 changed files with 2 additions and 1 deletions
|
@ -162,7 +162,8 @@ (define (transform-package-name name)
|
|||
name))
|
||||
|
||||
(define (has-from-build-system? pkg)
|
||||
(eq? from-build-system (package-build-system pkg)))
|
||||
(and (package? pkg)
|
||||
(eq? from-build-system (package-build-system pkg))))
|
||||
|
||||
(define (find-input-package pkg)
|
||||
(let* ((name (package-name pkg))
|
||||
|
|
Loading…
Reference in a new issue