From fde987b54f32ecb7c26c42322ab5df48e317c236 Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Tue, 7 Oct 2014 14:01:58 -0700 Subject: 120 - forgot to alloc space for array length --- mu.arc.t | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'mu.arc.t') 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) -- cgit 1.4.1-2-gfad0