From 9e072c67041be2a9968d153ab6a6de3c047bc0f0 Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Tue, 7 Sep 2010 05:58:22 +0200
Subject: Guile: configurable warning level

---
 scheme/guile/geiser/emacs.scm | 16 +++++++++++-----
 1 file changed, 11 insertions(+), 5 deletions(-)

(limited to 'scheme/guile/geiser/emacs.scm')

diff --git a/scheme/guile/geiser/emacs.scm b/scheme/guile/geiser/emacs.scm
index 3b6f49c..af1a052 100644
--- a/scheme/guile/geiser/emacs.scm
+++ b/scheme/guile/geiser/emacs.scm
@@ -10,9 +10,7 @@
 ;; Start date: Sun Feb 08, 2009 18:39
 
 (define-module (geiser emacs)
-  #:re-export (ge:eval
-               ge:compile
-               ge:macroexpand
+  #:re-export (ge:macroexpand
                ge:compile-file
                ge:load-file
                ge:autodoc
@@ -26,8 +24,10 @@
                ge:callers
                ge:callees
                ge:find-file)
-  #:export (ge:no-values)
-  #:export (ge:newline)
+  #:export (ge:compile
+            ge:no-values
+            ge:newline)
+  #:use-module (ice-9 match)
   #:use-module (geiser evaluation)
   #:use-module ((geiser modules) :renamer (symbol-prefix-proc 'ge:))
   #:use-module ((geiser completion) :renamer (symbol-prefix-proc 'ge:))
@@ -37,4 +37,10 @@
 (define (ge:no-values) (values))
 (define ge:newline newline)
 
+(define (ge:compile form mod)
+  (match form
+    (`((@ (geiser emacs) . ,_) . ,_) (compile/no-warns form mod))
+    (_ (compile/warns form mod))))
+
+
 ;;; emacs.scm ends here
-- 
cgit v1.2.3