syndicate-lang
/
marketplace-2014
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Correct types in exception handling. Closes #8

This commit is contained in:
Tony Garnock-Jones 2014-10-27 17:11:37 -04:00
parent d511d41040
commit 0ea7b7f831
1 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
process.rkt
View File

@ -18,13 +18,11 @@
(send-to-user* (process-debug-name p) (process-pid p) (e) failure-result enclosed-expr))
(define-syntax-rule (send-to-user* debug-name pid (e) failure-result enclosed-expr)
(with-handlers ([exn:fail? (lambda: ([e : Reason])
(if (exn? e)
(marketplace-log 'error "Process ~v(~v):~n~a~n"
debug-name pid (exn-message e))
(marketplace-log 'error "Process ~v(~v):~n~v~n"
debug-name pid e))
failure-result)])
(with-handlers ([exn:fail? (lambda: ([the-exn : exn:fail])
(let: ((e : Reason (cast the-exn Reason)))
(marketplace-log 'error "Process ~v(~v):~n~a~n"
debug-name pid (exn-message the-exn))
failure-result))])
(marketplace-log 'debug "Entering process ~v(~v)" debug-name pid)
(define result enclosed-expr)
(marketplace-log 'debug "Leaving process ~v(~v)" debug-name pid)