From 7f26437e93739a69ccdf48377742f08ab042acd7 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Mon, 16 Mar 2020 12:45:11 -0700 Subject: [PATCH] add debug level messaging --- pollen/private/log.rkt | 3 +++ pollen/private/ts.rktd | 2 +- 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/pollen/private/log.rkt b/pollen/private/log.rkt index d8ae533..8e48831 100644 --- a/pollen/private/log.rkt +++ b/pollen/private/log.rkt @@ -12,3 +12,6 @@ (define (message . items) (log-pollen-info (string-join (map ~a items) " "))) + +(define (message-debug . items) + (log-pollen-debug (string-join (map ~a items) " "))) diff --git a/pollen/private/ts.rktd b/pollen/private/ts.rktd index 1c49882..454f99f 100644 --- a/pollen/private/ts.rktd +++ b/pollen/private/ts.rktd @@ -1 +1 @@ -1584387500 +1584387911