diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-09-07 05:58:22 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-09-07 05:58:22 +0200 |
| commit | 9e072c67041be2a9968d153ab6a6de3c047bc0f0 (patch) | |
| tree | c89f32f6f160f726d2fd3e01637d880cb4cb9c1f /scheme/guile/geiser/emacs.scm | |
| parent | 9ecfebdfd5d3361c643c2b16b9fb7771122b0e82 (diff) | |
| download | geiser-chez-9e072c67041be2a9968d153ab6a6de3c047bc0f0.tar.gz geiser-chez-9e072c67041be2a9968d153ab6a6de3c047bc0f0.tar.bz2 | |
Guile: configurable warning level
Diffstat (limited to 'scheme/guile/geiser/emacs.scm')
| -rw-r--r-- | scheme/guile/geiser/emacs.scm | 16 |
1 files changed, 11 insertions, 5 deletions
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 |