|
|
|
@ -75,4 +75,4 @@
|
|
|
|
|
(make-message-logger-functions debug)
|
|
|
|
|
|
|
|
|
|
(define+provide (message . items)
|
|
|
|
|
(displayln (string-join `(,(make-debug-timestamp) ,@(map (λ(x)(if (string? x) x (format "~v" x))) items)))))
|
|
|
|
|
(displayln (string-join `(,@(map (λ(x)(if (string? x) x (format "~v" x))) items)))))
|