TakeV
/
guix
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

self: Compile guix-packages-base in chunks of 10 files. 

This fixes or greatly increases the chances for `guix pull' to succeed on the
Hurd, see <https://issues.guix.gnu.org/65456>.

* guix/self.scm (compiled-modules)[process-directory]: Move hardcoded size to
keyword parameter #:size.  Set it to 10 when compiling "guix-packages-base".
This commit is contained in:
Janneke Nieuwenhuizen 2023-09-18 08:09:50 +02:00
parent 7841a624f0
commit 15c5f1a2c2
No known key found for this signature in database
GPG Key ID: F3C1A0D9C1D65273
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
guix/self.scm
View File

@ -1245,14 +1245,13 @@ containing MODULE-FILES and possibly other files as well."
(* 100. (/ completed total)) total)
(force-output))
(define (process-directory directory files output)
(let* ((size 25) ;compile max 25 files a time
(chunks (unfold
(lambda (seed) (< (length seed) size)) ;p
(cute take <> size) ;f
(cute drop <> size) ;g
files ;seed
list))) ;tail
(define* (process-directory directory files output #:key (size 25))
(let ((chunks (unfold
(lambda (seed) (< (length seed) size)) ;p
(cute take <> size) ;f
(cute drop <> size) ;g
files ;seed
list))) ;tail
(for-each
(lambda (chunk)
;; Hide compilation warnings.
@ -1290,7 +1289,8 @@ containing MODULE-FILES and possibly other files as well."
(mkdir #$output)
(chdir #+module-tree)
(process-directory "." '#+module-files #$output)
(let ((size (if (equal? #$name "guix-packages-base") 10 25)))
(process-directory "." '#+module-files #$output #:size size))
(newline))))
(computed-file name build