Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-24 04:25:06 +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) (let ((result #f)
(my-handler (my-handler
(lambda (obj) (lambda (obj)
(write "entered my-handler")
(let ((result #f) (let ((result #f)
(continuable? (and (pair? obj) (continuable? (and (pair? obj)
(equal? (car obj) 'continuable)))) (equal? (car obj) 'continuable))))
;; Unregister this handler since it is no longer needed ;; Unregister this handler since it is no longer needed
(Cyc-remove-exception-handler) (Cyc-remove-exception-handler)
(set! result (handler (cadr obj))) ;; Actual handler (set! result (handler (cadr obj))) ;; Actual handler
(if continuable? (if continuable?
result result
(error "exception handler returned")))))) (error "exception handler returned"))))))
;; TODO: cond-expand below, since it uses Cyc functions? ;; No cond-expand below, since this is part of our internal lib
;; probably no need since this is part of internal lib
(write "before add ex handler")
(Cyc-add-exception-handler my-handler) (Cyc-add-exception-handler my-handler)
(write "before thunk")
(set! result (thunk)) (set! result (thunk))
(write (list "after thunk" result)) (Cyc-remove-exception-handler) ; Only reached if no ex raised
;; Only reached if no ex raised
(Cyc-remove-exception-handler)
result)) result))
(define *exception-handler-stack* '()) (define *exception-handler-stack* '())
(define (Cyc-add-exception-handler h) (define (Cyc-add-exception-handler h)