about summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--mu.arc3
1 files changed, 2 insertions, 1 deletions
diff --git a/mu.arc b/mu.arc
index 744e8515..d450c77c 100644
--- a/mu.arc
+++ b/mu.arc
@@ -93,7 +93,8 @@
 (def trace (label . args)
 ;?   (prn "trace: " dump-trace*)
   (when (or (is dump-trace* t)
-            (and dump-trace* (~pos label dump-trace*!blacklist)))
+            (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*))