summaryrefslogtreecommitdiff
path: root/haunt/publisher.scm
diff options
context:
space:
mode:
Diffstat (limited to 'haunt/publisher.scm')
-rw-r--r--haunt/publisher.scm5
1 files changed, 4 insertions, 1 deletions
diff --git a/haunt/publisher.scm b/haunt/publisher.scm
index b9dcf38..e62a39c 100644
--- a/haunt/publisher.scm
+++ b/haunt/publisher.scm
@@ -49,4 +49,7 @@
((publisher-proc publisher) site))
(define (run-command program . args)
- (zero? (apply system* program args)))
+ (let ((status (apply system* program args)))
+ (unless (zero? status)
+ (error "program exited with non-zero status"
+ (status:exit-val status) program args))))