From e0e07899d9088ec4f241f1b1f5e7daf00b43dcfa Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Thu, 27 Feb 2014 18:52:36 -0800 Subject: [PATCH] start to implement logging system --- debug.rkt | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/debug.rkt b/debug.rkt index 7d1520c..c0b3dfa 100644 --- a/debug.rkt +++ b/debug.rkt @@ -54,6 +54,10 @@ (define (make-debug-timestamp) (format "[~a ∆~as]" (make-timestamp) (seconds-since-last-message))) +;; creates pollen-logger and associated functions: +;; log-pollen-fatal, log-pollen-error, log-pollen-warning, +;; log-pollen-info, and log-pollen-debug +(define-logger pollen) ;; todo: consolidate these two message functions @@ -61,7 +65,7 @@ (displayln (string-join `(,@(map (λ(x)(if (string? x) x (format "~v" x))) items))) (current-error-port))) (define+provide (message . items) - (displayln (string-join `(,(make-debug-timestamp) ,@(map (λ(x)(if (string? x) x (format "~v" x))) items))) (current-error-port))) + (log-pollen-debug (string-join `(,(make-debug-timestamp) ,@(map (λ(x)(if (string? x) x (format "~v" x))) items))))) (define (exn+stack->string exn) (string-append