diff options
| author | Kartik K. Agaram <vc@akkartik.com> | 2014-11-06 10:21:15 -0800 |
|---|---|---|
| committer | Kartik K. Agaram <vc@akkartik.com> | 2014-11-06 10:21:15 -0800 |
| commit | 1f75e48cef3ca9dfd37eea3c5e86a0c18ac7a6dc (patch) | |
| tree | 8e9484726781904c8f2ad606c0ec99fd5b69936a | |
| parent | 1a85c63f4d69a22af803c679a49b821a2b876965 (diff) | |
| download | mu-1f75e48cef3ca9dfd37eea3c5e86a0c18ac7a6dc.tar.gz | |
230
| -rw-r--r-- | mu.arc | 3 |
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*)) |