diff options
| author | David Thompson <dthompson2@worcester.edu> | 2023-11-13 08:41:33 -0500 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2023-11-13 08:41:33 -0500 |
| commit | 63b6118cf488072cf2c106fc8d1557eb06255fc3 (patch) | |
| tree | dbc3f9756ae8a4197a236894217d673134b94984 | |
| parent | e558ad0913ed628b105990ab61c341c030244d3a (diff) | |
publisher: Throw an error on non-zero exit status in run-command.
| -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)))) |