* guile: prevent byte-compilation warnings

This commit is contained in:
djcb 2012-07-14 15:51:59 +03:00
parent 8abe211a58
commit cf9c6ce731
1 changed files with 14 additions and 0 deletions

View File

@ -88,6 +88,20 @@
(load-extension "libguile-mu" "mu_guile_init")
(load-extension "libguile-mu" "mu_guile_message_init")
;; define some dummies so we don't get errors during byte compilation
(eval-when (compile)
(define mu:c:get-field)
(define mu:c:get-contacts)
(define mu:c:for-each-message)
(define mu:c:get-header)
(define mu:critical)
(define mu:c:log)
(define mu:message)
(define mu:c:log)
(define mu:warning)
(define mu:c:log)
(define mu:get-parts))
(define (mu:log-warning frm . args)
"Log FRM with ARGS at warning."
(mu:c:log mu:warning frm args))