diff options
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 58292570..eb51b4c6 100644 --- a/mu.arc.t +++ b/mu.arc.t @@ -1302,7 +1302,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)) @@ -1313,7 +1313,7 @@ (prn "F - convert-names renames symbolic names to integer locations")) (reset) -;? (new-trace "convert-names-compound") +(new-trace "convert-names-compound") (if (~iso (convert-names '(((x integer-boolean-pair) <- copy (4 literal)) ((y integer) <- copy (2 literal)))) @@ -1322,7 +1322,7 @@ (prn "F - convert-names increments integer locations by the size of the type of the previous var")) (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)) @@ -1333,7 +1333,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)) @@ -1345,7 +1345,7 @@ ; kludgy support for 'fork' below (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)) @@ -1356,35 +1356,35 @@ (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)))) (prn "F - convert-names replaces field offsets for record addresses")) (reset) -;? (new-trace "convert-names-record-fields-multiple") +(new-trace "convert-names-record-fields-multiple") (if (~iso (convert-names '(((2 boolean) <- get (1 integer-boolean-pair) (bool offset)) ((3 boolean) <- get (1 integer-boolean-pair) (bool offset)))) |