build-system/asdf: Use 'mlambda'.

* guix/build-system/asdf.scm (package-with-build-system): Use 'mlambda'
instead of 'memoize'.
This commit is contained in:
Ludovic Courtès 2017-12-10 23:39:01 +01:00
parent 6146603d54
commit 8bc1935c7c
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 57 additions and 57 deletions

View File

@ -19,6 +19,7 @@
(define-module (guix build-system asdf)
#:use-module (guix store)
#:use-module (guix utils)
#:use-module (guix memoization)
#:use-module (guix packages)
#:use-module (guix derivations)
#:use-module (guix search-paths)
@ -160,8 +161,7 @@ set up using CL source package conventions."
(eq? from-build-system (package-build-system pkg)))
(define transform
(memoize
(lambda (pkg)
(mlambda (pkg)
(define rewrite
(match-lambda
((name content . rest)
@ -223,7 +223,7 @@ set up using CL source package conventions."
(outputs (if target-is-source?
'("out")
(package-outputs pkg)))))
(else pkg)))))
(else pkg))))
transform)