diff options
| author | Mark H Weaver <mhw@netris.org> | 2016-10-13 05:53:07 -0400 |
|---|---|---|
| committer | Mark H Weaver <mhw@netris.org> | 2016-10-13 05:53:07 -0400 |
| commit | 061d7f3bd2cc67c964acb2cb1bde07ee61df5d1a (patch) | |
| tree | 5b22d1081972956d9190c94a7cc2b271d5f85d67 /build-aux/compile-all.scm | |
| parent | f2ec23d18e50eef3e4f574a3e6498d8964e4e1a3 (diff) | |
| parent | 1cc213850a2009d55e137fee990f9743894c76c5 (diff) | |
| download | guix-patches-061d7f3bd2cc67c964acb2cb1bde07ee61df5d1a.tar guix-patches-061d7f3bd2cc67c964acb2cb1bde07ee61df5d1a.tar.gz | |
Merge branch 'master' into core-updates
Diffstat (limited to 'build-aux/compile-all.scm')
| -rw-r--r-- | build-aux/compile-all.scm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/build-aux/compile-all.scm b/build-aux/compile-all.scm index 46b381723b..6ce4040887 100644 --- a/build-aux/compile-all.scm +++ b/build-aux/compile-all.scm @@ -76,6 +76,12 @@ #:output-file go #:opts `(#:warnings ,warnings))))))) +;; Install a SIGINT handler to give unwind handlers in 'compile-file' an +;; opportunity to run upon SIGINT and to remove temporary output files. +(sigaction SIGINT + (lambda args + (exit 1))) + (match (command-line) ((_ . files) (let ((files (filter file-needs-compilation? files))) |