amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

build-system/asdf: Use 'mlambda'.

Browse source 
* 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
Download patch file Download diff file Expand all files Collapse all files

6
guix/build-system/asdf.scm
View file

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