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

Debugging

Browse source
This commit is contained in:
Justin Ethier 2017-03-27 19:02:54 -04:00
parent 3ee462f54c
commit ee48b908e2
1 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
scheme/eval.sld
View file

@ -23,6 +23,7 @@
setup-environment ; non-standard setup-environment ; non-standard
;; Dynamic import ;; Dynamic import
%import %import
c:lib-loaded? ;; TODO: debug only!
) )
(begin (begin
@ -606,13 +607,15 @@
(let ((lib-names (lib:get-all-import-deps import-sets '() '()))) (let ((lib-names (lib:get-all-import-deps import-sets '() '())))
(for-each (for-each
(lambda (lib-name) (lambda (lib-name)
(let ((loaded? (c:lib-loaded? (lib:name->unique-string lib-name)))) (let* ((us (lib:name->unique-string lib-name))
(if loaded? (loaded? (c:lib-loaded? us)))
;; TODO: some kind of bug here, seems libraries are never registered as loaded
(if (not loaded?)
(c:import-shared-obj (c:import-shared-obj
(lib:import->filename lib-name ".so") (lib:import->filename lib-name ".so")
(string-append (string-append
"c_" (lib:name->string lib-name) "_entry_pt_first_lambda")) "c_" (lib:name->string lib-name) "_entry_pt_first_lambda"))
;(write `(,lib-name is already loaded skipping)) (begin (write `(,lib-name ,us ,loaded? is already loaded skipping)) (newline))
))) )))
lib-names) lib-names)
(set! *global-environment* (setup-environment *initial-environment*)) (set! *global-environment* (setup-environment *initial-environment*))