diff options
Diffstat (limited to 'module/scripts/compile.scm')
-rw-r--r-- | module/scripts/compile.scm | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/module/scripts/compile.scm b/module/scripts/compile.scm index 5d91538c3..6440c4086 100644 --- a/module/scripts/compile.scm +++ b/module/scripts/compile.scm @@ -46,8 +46,8 @@ (define %summary "Compile a file.") -(define (fail . messages) - (format (current-error-port) "error: ~{~a~}~%" messages) +(define (fail message . args) + (format (current-error-port) "error: ~?~%" message args) (exit 1)) (define %options @@ -260,11 +260,10 @@ Report bugs to <~A>.~%" (set! %load-path (append load-path %load-path)) (set! %load-should-auto-compile #f) - (if (and output-file - (or (null? input-files) - (not (null? (cdr input-files))))) - (fail "`-o' option can only be specified " - "when compiling a single file")) + (when (and output-file + (or (null? input-files) + (not (null? (cdr input-files))))) + (fail "`-o' option can only be specified when compiling a single file")) ;; Install a SIGINT handler. As a side effect, this gives unwind ;; handlers an opportunity to run upon SIGINT; this includes that of |