diff options
Diffstat (limited to 'module/scripts/compile.scm')
-rw-r--r-- | module/scripts/compile.scm | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/module/scripts/compile.scm b/module/scripts/compile.scm index 9763d1d6e..f9d6cca99 100644 --- a/module/scripts/compile.scm +++ b/module/scripts/compile.scm @@ -168,11 +168,12 @@ Report bugs to <~A>.~%" (for-each (lambda (file) (format #t "wrote `~A'\n" - (compile-file file - #:output-file output-file - #:from from - #:to to - #:opts compile-opts))) + (with-fluids ((*current-warning-prefix* "")) + (compile-file file + #:output-file output-file + #:from from + #:to to + #:opts compile-opts)))) input-files))) (define main compile) |