add debug level messaging

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) " ")))

pollen/private/ts.rktd

@@ -1 +1 @@
-1584387500
+1584387911