From 52750cf67f41589492c4c0f82e095408f654d85c Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Thu, 11 Apr 2013 18:18:30 -0400 Subject: [PATCH] Change log-error to matrix-log --- marketplace/process.rkt | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/marketplace/process.rkt b/marketplace/process.rkt index afef480..a602603 100644 --- a/marketplace/process.rkt +++ b/marketplace/process.rkt @@ -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)