IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

* src/gnc-module/gnc-module.scm

Browse Source 
(gnc:module-system-init): adjust dynamic-link call based on guile
version.


git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@5535 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Rob Browning 2001-10-10 23:24:46 +00:00
parent 8ce9385c84
commit 18084fb703
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/gnc-module/gnc-module.scm
View File

@ -20,9 +20,10 @@
(export gnc:module-lookup) (export gnc:module-lookup)
(define (gnc:module-system-init) (define (gnc:module-system-init)
(let ((lib (dynamic-link "libgncmodule.la"))) (let ((lib (if (or (string=? (version) "1.3")
(string=? (version) "1.3.4"))
(dynamic-link "libgncmodule.so")
(dynamic-link "libgncmodule"))))
(if lib (if lib
(dynamic-call "gnc_module_system_init" lib) (dynamic-call "gnc_module_system_init" lib)
(throw 'gnc:module-system-init-failed)))) (throw 'gnc:module-system-init-failed))))