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

Change log-error to matrix-log

This commit is contained in:
Tony Garnock-Jones 2013-04-11 18:18:30 -04:00
parent f810c158fc
commit 52750cf67f
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
marketplace/process.rkt
View File

@ -20,10 +20,10 @@
(define-syntax-rule (send-to-user* debug-name pid (e) failure-result enclosed-expr)
(with-handlers ([exn:fail? (lambda: ([e : Reason])
(if (exn? e)
(log-error "Process ~v(~v):~n~a~n" debug-name pid
(exn-message e))
(log-error "Process ~v(~v):~n~v~n" debug-name pid
e))
(matrix-log 'error "Process ~v(~v):~n~a~n"
debug-name pid (exn-message e))
(matrix-log 'error "Process ~v(~v):~n~v~n"
debug-name pid e))
failure-result)])
(matrix-log 'debug "Entering process ~v(~v)" debug-name pid)
(define result enclosed-expr)