439

2 files changed, 9 insertions, 9 deletions

diff --git a/mu.arc b/mu.arc
index 09b20f27..5bf196ec 100644
--- a/mu.arc
+++ b/mu.arc
@@ -22,7 +22,7 @@
   (= traces* (queue)))
 
 (def new-trace (filename)
-  (prn "new-trace " filename)
+  (prn "== @filename")
 ;?   )
   (= curr-trace-file* filename))
 
diff --git a/mu.arc.t b/mu.arc.t
index 11458f31..1c5cc132 100644
--- a/mu.arc.t
+++ b/mu.arc.t
@@ -3336,7 +3336,7 @@
 ;; unit tests for various helpers
 
 ; tokenize-args
-(prn "tokenize-args")
+(prn "== tokenize-args")
 (assert:iso '((a b) (c d))
             (tokenize-arg 'a:b/c:d))
 (assert:iso '((a b) (1 d))
@@ -3373,7 +3373,7 @@
                 })))
 
 ; absolutize
-(prn "absolutize")
+(prn "== absolutize")
 (reset)
 (if (~iso '((4 integer)) (absolutize '((4 integer))))
   (prn "F - 'absolutize' works without routine"))
@@ -3392,7 +3392,7 @@
   (prn "F - 'absolutize' passes dummy args right through"))
 
 ; deref
-(prn "deref")
+(prn "== deref")
 (reset)
 (= memory*.3 4)
 (if (~iso '((4 integer))
@@ -3418,7 +3418,7 @@
   (prn "F - 'deref' skips junk"))
 
 ; addr
-(prn "addr")
+(prn "== addr")
 (reset)
 (= routine* nil)
 ;? (prn 111)
@@ -3468,7 +3468,7 @@
 ;? (quit)
 
 ; array-len
-(prn "array-len")
+(prn "== array-len")
 (reset)
 (= memory*.35 4)
 (if (~is 4 (array-len '((35 integer-boolean-pair-array))))
@@ -3479,7 +3479,7 @@
 ;? (quit)
 
 ; sizeof
-(prn "sizeof")
+(prn "== sizeof")
 (reset)
 ;? (set dump-trace*)
 ;? (prn 401)
@@ -3534,7 +3534,7 @@
 ;? (quit)
 
 ; m
-(prn "m")
+(prn "== m")
 (reset)
 (if (~is 4 (m '((4 literal))))
   (prn "F - 'm' avoids reading memory for literals"))
@@ -3564,7 +3564,7 @@
   (prn "F - 'm' supports indirect access to arrays"))
 
 ; setm
-(prn "setm")
+(prn "== setm")
 (reset)
 (setm '((4 integer)) 34)
 (if (~is 34 memory*.4)