diff options
| -rw-r--r-- | haunt/publisher.scm | 5 |
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)))) |