diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2014-10-29 09:01:16 -0700 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2014-10-29 09:01:16 -0700 |
commit | dc8c5cea4c9f2af03bb4269ea7244adb7608580b (patch) | |
tree | 0895e9b2d6c66b918a4093d735e8bc84cac545f5 /mu.arc.t | |
parent | 52dc9fa4844d34da3fe178370f126b9d4fb47536 (diff) | |
download | mu-dc8c5cea4c9f2af03bb4269ea7244adb7608580b.tar.gz |
165
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 5165f77e..0126bdca 100644 --- a/mu.arc.t +++ b/mu.arc.t @@ -1265,10 +1265,10 @@ (reset) (new-trace "new-primitive") +(add-fns + '((main + ((1 integer-address) <- new (integer type))))) (let before Memory-in-use-until - (add-fns - '((main - ((1 integer-address) <- new (integer type))))) (run 'main) ;? (prn memory*) (if (~iso memory*.1 before) @@ -1278,10 +1278,10 @@ (reset) (new-trace "new-array-literal") +(add-fns + '((main + ((1 type-array-address) <- new (type-array type) (5 literal))))) (let before Memory-in-use-until - (add-fns - '((main - ((1 type-array-address) <- new (type-array type) (5 literal))))) (run 'main) ;? (prn memory*) (if (~iso memory*.1 before) @@ -1291,11 +1291,11 @@ (reset) (new-trace "new-array-direct") +(add-fns + '((main + ((1 integer) <- copy (5 literal)) + ((2 type-array-address) <- new (type-array type) (1 integer))))) (let before Memory-in-use-until - (add-fns - '((main - ((1 integer) <- copy (5 literal)) - ((2 type-array-address) <- new (type-array type) (1 integer))))) (run 'main) ;? (prn memory*) (if (~iso memory*.2 before) |