me
/
guix
Archived
1
0
Fork 0
Code

pull: Compile files in the lexicographic order. 

* guix/scripts/pull.scm (unpack): Print the name of the file being
  compiled.  Sort the names of files to compile.
master
Ludovic Courtès 2013-09-03 10:48:52 +02:00
parent 8badfc5558
commit bda44eed93
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
guix/scripts/pull.scm
View File

@ -106,6 +106,8 @@ files."
(when (string-suffix? ".scm" file) (when (string-suffix? ".scm" file)
(let ((go (string-append (string-drop-right file 4) (let ((go (string-append (string-drop-right file 4)
".go"))) ".go")))
(format (current-error-port)
"compiling '~a'...~%" file)
(compile-file file (compile-file file
#:output-file go #:output-file go
#:opts %auto-compilation-options)))) #:opts %auto-compilation-options))))
@ -114,7 +116,9 @@ files."
;; download), we must build it first to avoid errors since ;; download), we must build it first to avoid errors since
;; (gnutls) is unavailable. ;; (gnutls) is unavailable.
(cons (string-append out "/guix/build/download.scm") (cons (string-append out "/guix/build/download.scm")
(find-files out "\\.scm")))
;; Sort the file names to get deterministic results.
(sort (find-files out "\\.scm") string<?)))
;; Remove the "fake" (guix config). ;; Remove the "fake" (guix config).
(delete-file (string-append out "/guix/config.scm")) (delete-file (string-append out "/guix/config.scm"))