diff options
| -rw-r--r-- | guix/build-system/asdf.scm | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/guix/build-system/asdf.scm b/guix/build-system/asdf.scm index 26b5a5008a..ad0fb993f6 100644 --- a/guix/build-system/asdf.scm +++ b/guix/build-system/asdf.scm @@ -155,9 +155,13 @@ set up using CL source package conventions." (define (find-input-package pkg) (let* ((name (package-name pkg)) - (new-name (transform-package-name name)) - (pkgs (find-packages-by-name new-name))) - (if (null? pkgs) #f (list-ref pkgs 0)))) + (new-name (transform-package-name name))) + (if (string=? name new-name) + pkg + (let ((pkgs (find-packages-by-name new-name))) + (if (null? pkgs) + #f + (list-ref pkgs 0)))))) (define transform (mlambda (pkg) |