mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-15 08:10:17 +02:00
Code Activity

Add `*current-warning-prefix*'.

Browse source 
* 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.
This commit is contained in:
Ludovic Courtès 2011-02-13 19:13:36 +01:00
parent eb7a16a9f8
commit a4060f6710
4 changed files with 105 additions and 80 deletions
Download patch file Download diff file Expand all files Collapse all files

11
module/scripts/compile.scm
View file

@ -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)