Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-23 20:15:05 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Removed debug statements

Browse source
This commit is contained in:
Justin Ethier 2015-03-23 13:37:06 -04:00
parent 573f049d5e
commit 94802939c0
1 changed files with 2 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
trans.scm
View file

@ -79,26 +79,19 @@
(let ((result #f)
(my-handler
(lambda (obj)
(write "entered my-handler")
(let ((result #f)
(continuable? (and (pair? obj)
(equal? (car obj) 'continuable))))
;; Unregister this handler since it is no longer needed
(Cyc-remove-exception-handler)
(set! result (handler (cadr obj))) ;; Actual handler
(if continuable?
result
(error "exception handler returned"))))))
;; TODO: cond-expand below, since it uses Cyc functions?
;; probably no need since this is part of internal lib
(write "before add ex handler")
;; No cond-expand below, since this is part of our internal lib
(Cyc-add-exception-handler my-handler)
(write "before thunk")
(set! result (thunk))
(write (list "after thunk" result))
;; Only reached if no ex raised
(Cyc-remove-exception-handler)
(Cyc-remove-exception-handler) ; Only reached if no ex raised
result))
(define *exception-handler-stack* '())
(define (Cyc-add-exception-handler h)