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

gnu: bootstrap: Memoize 'bootstrap-origin'.

Browse source 
* 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
1 changed files with 32 additions and 31 deletions
Download patch file Download diff file Expand all files Collapse all files

5
gnu/packages/bootstrap.scm
View file

@ -149,7 +149,8 @@ for system '~a'")
;;; 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 @@ for system '~a'")
(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)