summaryrefslogtreecommitdiff
path: root/nonguix/build/binary-build-system.scm
diff options
context:
space:
mode:
Diffstat (limited to 'nonguix/build/binary-build-system.scm')
-rw-r--r--nonguix/build/binary-build-system.scm7
1 files changed, 6 insertions, 1 deletions
diff --git a/nonguix/build/binary-build-system.scm b/nonguix/build/binary-build-system.scm
index 147aa18..e5bbc48 100644
--- a/nonguix/build/binary-build-system.scm
+++ b/nonguix/build/binary-build-system.scm
@@ -155,7 +155,12 @@ The inputs are optional when the file is an executable."
(chdir "binary")
(match binary-file
((? deb-file?) (unpack-deb binary-file))
- (_ (format #t "Unknown file type: ~a~%" (basename binary-file)))))))
+ (_
+ (begin
+ (format #t "Unknown file type: ~a~%" (basename binary-file))
+ ;; Cleanup after ourselves
+ (chdir "..")
+ (rmdir "binary")))))))
(define %standard-phases
;; Everything is as with the GNU Build System except for the `binary-unpack',