diff options
| author | Ludovic Courtès | 2012-05-12 16:19:06 +0200 |
|---|---|---|
| committer | Ludovic Courtès | 2012-05-12 16:19:21 +0200 |
| commit | 514ddef9706f96cff0cb637835cfdd7f9104354a (patch) | |
| tree | 6b15cda7ef257759ae1b9ac5e5e8fe19a9470f72 | |
| parent | 36c3172bf9ee7e2d44b96e4faa5081f105769cc2 (diff) | |
| download | skribilo-514ddef9706f96cff0cb637835cfdd7f9104354a.tar.gz skribilo-514ddef9706f96cff0cb637835cfdd7f9104354a.tar.lz skribilo-514ddef9706f96cff0cb637835cfdd7f9104354a.zip | |
Set Guile's `*current-warning-prefix*' to "" when compiling.
* guile-vm.am (.scm.go): Set `*current-warning-prefix*' to "".
| -rw-r--r-- | guile-vm.am | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/guile-vm.am b/guile-vm.am index 3e21e7e..c64eda9 100644 --- a/guile-vm.am +++ b/guile-vm.am @@ -20,11 +20,13 @@ guile_warnings = \ GUILE_LOAD_COMPILED_PATH="$(builddir):$(top_builddir)/src/guile:$$GUILE_LOAD_COMPILED_PATH" \ $(GUILE) -L "$(srcdir)" -L "$(top_srcdir)/src/guile" \ -c "(use-modules (system base compile) \ + (system base message) \ (skribilo condition)) \ - (call-with-skribilo-error-catch/exit \ - (lambda () \ - (compile-file \"$<\" #:output-file \"$@\" \ - #:opts '(#:warnings ($(guile_warnings))))))" + (with-fluids ((*current-warning-prefix* \"\")) \ + (call-with-skribilo-error-catch/exit \ + (lambda () \ + (compile-file \"$<\" #:output-file \"$@\" \ + #:opts '(#:warnings ($(guile_warnings)))))))" CLEANFILES += $(GOBJECTS) |