diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2014-10-29 09:02:34 -0700 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2014-10-29 09:02:34 -0700 |
commit | b7c86461fea3a755a14c3b2aa59be09cf331ab05 (patch) | |
tree | aa8b96eb11bea85427acf18601ee9b20346c7e96 /mu.arc.t | |
parent | dc8c5cea4c9f2af03bb4269ea7244adb7608580b (diff) | |
download | mu-b7c86461fea3a755a14c3b2aa59be09cf331ab05.tar.gz |
166
Diffstat (limited to 'mu.arc.t')
-rw-r--r-- | mu.arc.t | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/mu.arc.t b/mu.arc.t index 0126bdca..f3df4ea8 100644 --- a/mu.arc.t +++ b/mu.arc.t @@ -1270,7 +1270,7 @@ ((1 integer-address) <- new (integer type))))) (let before Memory-in-use-until (run 'main) - ;? (prn memory*) +;? (prn memory*) (if (~iso memory*.1 before) (prn "F - 'new' returns current high-water mark")) (if (~iso Memory-in-use-until (+ before 1)) @@ -1283,7 +1283,7 @@ ((1 type-array-address) <- new (type-array type) (5 literal))))) (let before Memory-in-use-until (run 'main) - ;? (prn memory*) +;? (prn memory*) (if (~iso memory*.1 before) (prn "F - 'new' on array with literal size returns current high-water mark")) (if (~iso Memory-in-use-until (+ before 6)) @@ -1297,7 +1297,7 @@ ((2 type-array-address) <- new (type-array type) (1 integer))))) (let before Memory-in-use-until (run 'main) - ;? (prn memory*) +;? (prn memory*) (if (~iso memory*.2 before) (prn "F - 'new' on array with variable size returns current high-water mark")) (if (~iso Memory-in-use-until (+ before 6)) |