diff options
| author | Kartik K. Agaram <vc@akkartik.com> | 2014-10-07 14:01:58 -0700 |
|---|---|---|
| committer | Kartik K. Agaram <vc@akkartik.com> | 2014-10-07 14:02:16 -0700 |
| commit | fde987b54f32ecb7c26c42322ab5df48e317c236 (patch) | |
| tree | cc1dfb5ce46879816427b182e91cf56b709d774e /mu.arc.t | |
| parent | d43f0c54e22161687570ad34efa9df8e5a8a2f53 (diff) | |
| download | mu-fde987b54f32ecb7c26c42322ab5df48e317c236.tar.gz | |
120 - forgot to alloc space for array length
Diffstat (limited to 'mu.arc.t')
| -rw-r--r-- | mu.arc.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/mu.arc.t b/mu.arc.t index bc8e4073..7f9e1042 100644 --- a/mu.arc.t +++ b/mu.arc.t @@ -802,7 +802,7 @@ ;? (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 5)) + (if (~iso Memory-in-use-until (+ before 6)) (prn "F - 'new' on primitive arrays increments high-water mark by their size"))) (reset) @@ -816,7 +816,7 @@ ;? (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 5)) + (if (~iso Memory-in-use-until (+ before 6)) (prn "F - 'new' on primitive arrays increments high-water mark by their (variable) size"))) (reset) |