/[mailutils]/mailutils/libmu_scm/mailutils.scm.in
ViewVC logotype

Diff of /mailutils/libmu_scm/mailutils.scm.in

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by polak, Sun Dec 29 12:52:07 2002 UTC revision 1.4 by gray, Fri Jan 10 14:41:43 2003 UTC
# Line 21  changequote([,])dnl Line 21  changequote([,])dnl
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)

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26