Change log-error to matrix-log
This commit is contained in:
parent
f810c158fc
commit
52750cf67f
|
@ -20,10 +20,10 @@
|
||||||
(define-syntax-rule (send-to-user* debug-name pid (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])
|
(with-handlers ([exn:fail? (lambda: ([e : Reason])
|
||||||
(if (exn? e)
|
(if (exn? e)
|
||||||
(log-error "Process ~v(~v):~n~a~n" debug-name pid
|
(matrix-log 'error "Process ~v(~v):~n~a~n"
|
||||||
(exn-message e))
|
debug-name pid (exn-message e))
|
||||||
(log-error "Process ~v(~v):~n~v~n" debug-name pid
|
(matrix-log 'error "Process ~v(~v):~n~v~n"
|
||||||
e))
|
debug-name pid e))
|
||||||
failure-result)])
|
failure-result)])
|
||||||
(matrix-log 'debug "Entering process ~v(~v)" debug-name pid)
|
(matrix-log 'debug "Entering process ~v(~v)" debug-name pid)
|
||||||
(define result enclosed-expr)
|
(define result enclosed-expr)
|
||||||
|
|
Loading…
Reference in New Issue