diff options
| author | Kartik K. Agaram <vc@akkartik.com> | 2014-11-04 13:43:57 -0800 |
|---|---|---|
| committer | Kartik K. Agaram <vc@akkartik.com> | 2014-11-04 13:43:57 -0800 |
| commit | 101ee552633752932bcd129add2f021f05ee680e (patch) | |
| tree | 5bdd832e6a09e08982f5310200f6b39439d94d31 /mu.arc.t | |
| parent | f27613a982b8a0d216802adfe22178c6670e40f5 (diff) | |
| download | mu-101ee552633752932bcd129add2f021f05ee680e.tar.gz | |
223
Diffstat (limited to 'mu.arc.t')
| -rw-r--r-- | mu.arc.t | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/mu.arc.t b/mu.arc.t index 4d77eb6b..f3035784 100644 --- a/mu.arc.t +++ b/mu.arc.t @@ -1276,6 +1276,15 @@ (prn "F - convert-names renames symbolic names to integer locations")) (reset) +;? (new-trace "convert-names-compound") +(if (~iso (convert-names + '(((x integer-boolean-pair) <- copy (4 literal)) + ((y integer) <- copy (2 literal)))) + '(((1 integer-boolean-pair) <- copy (4 literal)) + ((3 integer) <- copy (2 literal)))) + (prn "F - convert-names increments integer locations by the size of the type of the previous var")) + +(reset) ;? (new-trace "convert-names-nil") (if (~iso (convert-names '(((x integer) <- copy (4 literal)) |