Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-09 22:17:33 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Added (imported?)

Browse source
This commit is contained in:
Justin Ethier 2017-04-26 17:22:33 -04:00
parent f88016eb3e
commit e469f4d5a6
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
scheme/eval.sld
View file

@ -23,6 +23,7 @@
setup-environment ; non-standard setup-environment ; non-standard
;; Dynamic import ;; Dynamic import
%import %import
imported?
) )
(begin (begin
@ -624,6 +625,10 @@
(set! *global-environment* (setup-environment *initial-environment*)) (set! *global-environment* (setup-environment *initial-environment*))
#t)) #t))
;; Is the given library loaded?
(define (imported? lis)
(c:lib-loaded? (lib:name->unique-string (lib:list->import-set lis))))
;; Wrapper around the actual shared object import function ;; Wrapper around the actual shared object import function
(define-c c:import-shared-obj (define-c c:import-shared-obj
"(void *data, int argc, closure _, object k, object fn, object entry_fnc)" "(void *data, int argc, closure _, object k, object fn, object entry_fnc)"