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

Fixes for raise-continuable

Browse source
This commit is contained in:
Justin Ethier 2015-03-19 22:59:23 -04:00
parent 1d5409b4ae
commit 8c8b7bff74
2 changed files with 7 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
test.scm
View file

@ -34,8 +34,8 @@
(display "a warning has been issued"))) (display "a warning has been issued")))
42) 42)
(lambda () (lambda ()
(+ (raise-continuable "should be a number") (+ (raise-continuable "should be a number") 23)
23)))) )))
;prints: should be a number ;prints: should be a number
;=> 65 ;=> 65

8
trans.scm
View file

@ -74,7 +74,8 @@
(define (raise-continuable obj) (define (raise-continuable obj)
((Cyc-current-exception-handler) (list 'continuable obj))) ((Cyc-current-exception-handler) (list 'continuable obj)))
(define (with-exception-handler handler thunk) (define (with-exception-handler handler thunk)
(let ((my-handler (let ((result #f)
(my-handler
(lambda (obj) (lambda (obj)
(let ((result #f) (let ((result #f)
(continuable? (and (pair? obj) (continuable? (and (pair? obj)
@ -89,9 +90,10 @@
;; TODO: cond-expand below, since it uses Cyc functions? ;; TODO: cond-expand below, since it uses Cyc functions?
;; probably no need since this is part of internal lib ;; probably no need since this is part of internal lib
(Cyc-add-exception-handler my-handler) (Cyc-add-exception-handler my-handler)
(thunk) (set! result (thunk))
;; Only reached if no ex raised ;; Only reached if no ex raised
(Cyc-remove-exception-handler))) (Cyc-remove-exception-handler)
result))
)) ))
;; Built-in macros ;; Built-in macros