diff options
-rw-r--r-- | mu.arc | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/mu.arc b/mu.arc index 77370b7e..89764590 100644 --- a/mu.arc +++ b/mu.arc @@ -91,12 +91,17 @@ (= dump-trace* nil) (def trace (label . args) (when (or (is dump-trace* t) + (and dump-trace* (is label "-")) (and dump-trace* (pos label dump-trace*!whitelist)) (and dump-trace* (no dump-trace*!whitelist) (~pos label dump-trace*!blacklist))) (apply prn label ": " args)) (enq (list label (apply tostring:prn args)) traces*)) +(redef tr args ; why am I still returning to prn when debugging? Will this help? + (do1 nil + (apply trace "-" args))) + (def check-trace-contents (msg expected-contents) (unless (trace-contents-match expected-contents) (prn "F - " msg) |