gnu: bootstrap: Memoize 'bootstrap-origin'.

* gnu/packages/bootstrap.scm (bootstrap-origin): Memoize with
'mlambdaq'.  This improves memoization of origins in (gnu packages
commencement).
This commit is contained in:
Ludovic Courtès 2019-11-03 17:59:28 +01:00
parent bf7b08c4fe
commit 7e1a74da93
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -149,7 +149,8 @@ (define bootstrap-executable
;;; Helper procedures. ;;; Helper procedures.
;;; ;;;
(define (bootstrap-origin source) (define bootstrap-origin
(mlambdaq (source)
"Return a variant of SOURCE, an <origin> instance, whose method uses "Return a variant of SOURCE, an <origin> instance, whose method uses
%BOOTSTRAP-GUILE to do its job." %BOOTSTRAP-GUILE to do its job."
(define (boot fetch) (define (boot fetch)
@ -183,7 +184,7 @@ (define %bootstrap-patch-inputs
(bootstrap-origin patch)) (bootstrap-origin patch))
(patch patch)) (patch patch))
(origin-patches source)))) (origin-patches source))))
source))) source))))
(define* (package-from-tarball name source program-to-test description (define* (package-from-tarball name source program-to-test description
#:key snippet) #:key snippet)