diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2014-11-04 00:00:16 -0800 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2014-11-04 00:00:16 -0800 |
commit | 02b89cc7be8e7c977d7f1228e9f7f3364978b2c6 (patch) | |
tree | 55820b7bda779167895b827dfb80cc26afedb054 /mu.arc.t | |
parent | c6ef4826d6e6f7cac8108167209a3c65977986a7 (diff) | |
download | mu-02b89cc7be8e7c977d7f1228e9f7f3364978b2c6.tar.gz |
220 - stop creating empty traces
Diffstat (limited to 'mu.arc.t')
-rw-r--r-- | mu.arc.t | 20 |
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 [ |