220 - stop creating empty traces

1 files changed, 10 insertions, 10 deletions

diff --git a/mu.arc.t b/mu.arc.t
index c28e1d6c..32960298 100644
--- a/mu.arc.t
+++ b/mu.arc.t
@@ -1265,7 +1265,7 @@
 ; convenience.
 
 (reset)
-(new-trace "convert-names")
+;? (new-trace "convert-names")
 (if (~iso (convert-names
             '(((x integer) <- copy (4 literal))
               ((y integer) <- copy (2 literal))
@@ -1276,7 +1276,7 @@
   (prn "F - convert-names renames symbolic names to integer locations"))
 
 (reset)
-(new-trace "convert-names-nil")
+;? (new-trace "convert-names-nil")
 (if (~iso (convert-names
             '(((x integer) <- copy (4 literal))
               ((y integer) <- copy (2 literal))
@@ -1287,7 +1287,7 @@
   (prn "F - convert-names never renames nil"))
 
 (reset)
-(new-trace "convert-names-global")
+;? (new-trace "convert-names-global")
 (if (~iso (convert-names
             '(((x integer) <- copy (4 literal))
               ((y integer global) <- copy (2 literal))
@@ -1299,7 +1299,7 @@
 
 ; kludgy support for 'fork'
 (reset)
-(new-trace "convert-names-functions")
+;? (new-trace "convert-names-functions")
 (if (~iso (convert-names
             '(((x integer) <- copy (4 literal))
               ((y integer) <- copy (2 literal))
@@ -1310,28 +1310,28 @@
   (prn "F - convert-names never renames nil"))
 
 (reset)
-(new-trace "convert-names-record-fields")
+;? (new-trace "convert-names-record-fields")
 (if (~iso (convert-names
             '(((x integer) <- get (34 integer-boolean-pair) (bool offset))))
           '(((1 integer) <- get (34 integer-boolean-pair) (1 offset))))
   (prn "F - convert-names replaces record field offsets"))
 
 (reset)
-(new-trace "convert-names-record-fields-ambiguous")
+;? (new-trace "convert-names-record-fields-ambiguous")
 (if (errsafe (convert-names
                '(((bool boolean) <- copy (t literal))
                  ((x integer) <- get (34 integer-boolean-pair) (bool offset)))))
   (prn "F - convert-names doesn't allow offsets and variables with the same name in a function"))
 
 (reset)
-(new-trace "convert-names-record-fields-ambiguous-2")
+;? (new-trace "convert-names-record-fields-ambiguous-2")
 (if (errsafe (convert-names
                '(((x integer) <- get (34 integer-boolean-pair) (bool offset))
                  ((bool boolean) <- copy (t literal)))))
   (prn "F - convert-names doesn't allow offsets and variables with the same name in a function - 2"))
 
 (reset)
-(new-trace "convert-names-record-fields-indirect")
+;? (new-trace "convert-names-record-fields-indirect")
 (if (~iso (convert-names
             '(((x integer) <- get (34 integer-boolean-pair-address deref) (bool offset))))
           '(((1 integer) <- get (34 integer-boolean-pair-address deref) (1 offset))))
@@ -1475,7 +1475,7 @@
 ;? (quit)
 
 (reset)
-(new-trace "convert-names-default-scope")
+;? (new-trace "convert-names-default-scope")
 (if (~iso (convert-names
             '(((x integer) <- copy (4 literal))
               ((y integer) <- copy (2 literal))
@@ -1679,7 +1679,7 @@
 ; code is that we can naturally name 'join points' wherever we want.
 
 (reset)
-(new-trace "convert-quotes-defer")
+;? (new-trace "convert-quotes-defer")
 (if (~iso (convert-quotes
             '(((1 integer) <- copy (4 literal))
               (defer [