21 |
(define-module (mailutils)) |
(define-module (mailutils)) |
22 |
|
|
23 |
(let ((lib-path "LIBDIR/")) |
(let ((lib-path "LIBDIR/")) |
24 |
|
(dynamic-link (string-append lib-path "libmailbox")) |
25 |
(cond |
(cond |
26 |
((or (string=? (version) "1.4") |
((or (string=? (version) "1.4") |
27 |
(string=? (version) "1.4.1")) |
(string=? (version) "1.4.1")) |
|
(dynamic-link (string-append lib-path "libmailbox")) |
|
28 |
(dynamic-call "mu_scm_init" |
(dynamic-call "mu_scm_init" |
29 |
(dynamic-link (string-append |
(dynamic-link (string-append |
30 |
lib-path |
lib-path |
31 |
"libguile-mailutils-v-VERSION")))) |
"libguile-mailutils-v-VERSION")))) |
32 |
(else |
(else |
33 |
(load-extension "libguile-mailutils-v-VERSION" "mu_scm_init")))) |
(load-extension (string-append |
34 |
|
lib-path "libguile-mailutils-v-VERSION") "mu_scm_init")))) |
35 |
|
|
36 |
(export mu-package) |
(export mu-package) |
37 |
(export mu-package-string) |
(export mu-package-string) |