From 514ddef9706f96cff0cb637835cfdd7f9104354a Mon Sep 17 00:00:00 2001
From: Ludovic Courtès
Date: Sat, 12 May 2012 16:19:06 +0200
Subject: Set Guile's `*current-warning-prefix*' to "" when compiling.

* guile-vm.am (.scm.go): Set `*current-warning-prefix*' to "".
---
 guile-vm.am | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

(limited to 'guile-vm.am')

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)
 
-- 
cgit v1.2.3