build: Arrange so temporary .go files are deleted upon SIGINT.

* build-aux/compile-all.scm: Install SIGINT handler.
This commit is contained in:
Ludovic Courtès 2016-10-12 14:55:32 +02:00
parent eb419bc9fe
commit 402bb3b9f7
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 6 additions and 0 deletions

View File

@ -76,6 +76,12 @@
#:output-file go #:output-file go
#:opts `(#:warnings ,warnings))))))) #: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) (match (command-line)
((_ . files) ((_ . files)
(let ((files (filter file-needs-compilation? files))) (let ((files (filter file-needs-compilation? files)))