diff options
author | Ludovic Courtès <ludo@gnu.org> | 2011-02-13 19:13:36 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2011-02-13 19:13:36 +0100 |
commit | a4060f671073337e9dc5df64398972913bd71a52 (patch) | |
tree | b3db20df35b1697600b4b1a7789ef39fd3b45741 /module/scripts | |
parent | eb7a16a9f802524f062ec48cf749da0253a1bbc5 (diff) | |
download | guile-a4060f671073337e9dc5df64398972913bd71a52.tar.gz |
Add `*current-warning-prefix*'.
* module/system/base/message.scm (*current-warning-prefix*): New
variable.
(%warning-types): Honor `*current-warning-prefix*'.
* module/scripts/compile.scm (compile): Use an empty
`*current-warning-prefix*'.
* module/system/repl/common.scm (repl-compile): Likewise.
* test-suite/tests/tree-il.test (call-with-warnings): Likewise.
Diffstat (limited to 'module/scripts')
-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) |