dmbcs/guile
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* boot-9.scm (link-dynamic-module): Do not catch errors from

Browse source 
dynamic-link and dynamic-call.  When the shared library exists it is
now assumed to be suitable for a dynamic C module.
This commit is contained in:
Marius Vollmer 1997-04-30 13:35:11 +00:00
commit 6b8561828b
1 changed files with 5 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

14
ice-9/boot-9.scm
View file

@ -2024,15 +2024,11 @@
%load-path)))
(define (link-dynamic-module filename initname)
(let ((dynobj (dynamic-maybe-link filename)))
(if dynobj
(if (dynamic-maybe-call initname dynobj)
(set! registered-modules
(append! (convert-c-registered-modules dynobj)
registered-modules))
(begin
(pk 'no_init)
(dynamic-unlink dynobj))))))
(let ((dynobj (dynamic-link filename)))
(dynamic-call initname dynobj)
(set! registered-modules
(append! (convert-c-registered-modules dynobj)
registered-modules))))
(define (try-module-dynamic-link module-name)
(or (init-dynamic-module module-name)