mirror of
https://github.com/justinethier/cyclone.git
synced 2025-07-13 07:47:39 +02:00
Added exception handler
This commit is contained in:
parent
51a1a63700
commit
c2929af714
1 changed files with 31 additions and 28 deletions
|
@ -228,6 +228,9 @@
|
||||||
|
|
||||||
(for-each
|
(for-each
|
||||||
(lambda (import)
|
(lambda (import)
|
||||||
|
(with-handler
|
||||||
|
(lambda (err)
|
||||||
|
#f)
|
||||||
(let* ((lib-name-str (lib:name->string (lib:list->import-set import)))
|
(let* ((lib-name-str (lib:name->string (lib:list->import-set import)))
|
||||||
(inlinable-lambdas-fnc
|
(inlinable-lambdas-fnc
|
||||||
(string->symbol
|
(string->symbol
|
||||||
|
@ -254,8 +257,8 @@
|
||||||
(else
|
(else
|
||||||
;; TODO: try loading if not loaded (but need ex handler in case anything bad happens) #t ;(eval `(import ,import))
|
;; TODO: try loading if not loaded (but need ex handler in case anything bad happens) #t ;(eval `(import ,import))
|
||||||
;;(%import import)
|
;;(%import import)
|
||||||
#f))
|
;; if this work is done, would need to consolidate inline reg code above
|
||||||
))
|
#f)))))
|
||||||
imports)
|
imports)
|
||||||
|
|
||||||
;(for-each
|
;(for-each
|
||||||
|
|
Loading…
Add table
Reference in a new issue