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

Added exception handler

Browse source
This commit is contained in:
Justin Ethier 2017-04-26 18:08:07 -04:00
parent 51a1a63700
commit c2929af714
1 changed files with 31 additions and 28 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
cyclone.scm
View file

@ -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