summaryrefslogtreecommitdiff
path: root/module/scripts
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2011-02-13 19:13:36 +0100
committerLudovic Courtès <ludo@gnu.org>2011-02-13 19:13:36 +0100
commita4060f671073337e9dc5df64398972913bd71a52 (patch)
treeb3db20df35b1697600b4b1a7789ef39fd3b45741 /module/scripts
parenteb7a16a9f802524f062ec48cf749da0253a1bbc5 (diff)
downloadguile-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.scm11
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)