diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2013-09-08 12:11:32 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2013-09-08 12:11:32 +0200 |
| commit | 8ce3104e0e290b603599ec2e1b86bb82497c2665 (patch) | |
| tree | 9b099435ac4d3aa05439be277a32e19337c07c7a /guix/scripts/pull.scm | |
| parent | 3409bc0188feb4b00cdd5ec7acc357faa6cad698 (diff) | |
| parent | 6bf25b7b0554e8b569bc4938c4833491aedc742f (diff) | |
| download | guix-patches-8ce3104e0e290b603599ec2e1b86bb82497c2665.tar guix-patches-8ce3104e0e290b603599ec2e1b86bb82497c2665.tar.gz | |
Merge branch 'master' into core-updates
Diffstat (limited to 'guix/scripts/pull.scm')
| -rw-r--r-- | guix/scripts/pull.scm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/guix/scripts/pull.scm b/guix/scripts/pull.scm index f4135efc99..f3d87a63c0 100644 --- a/guix/scripts/pull.scm +++ b/guix/scripts/pull.scm @@ -106,6 +106,8 @@ files." (when (string-suffix? ".scm" file) (let ((go (string-append (string-drop-right file 4) ".go"))) + (format (current-error-port) + "compiling '~a'...~%" file) (compile-file file #:output-file go #:opts %auto-compilation-options)))) @@ -114,7 +116,9 @@ files." ;; download), we must build it first to avoid errors since ;; (gnutls) is unavailable. (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). (delete-file (string-append out "/guix/config.scm")) |