>From 9301a54c05935df730897941ea49c49a8b48f3c5 Mon Sep 17 00:00:00 2001 From: felix Date: Wed, 16 Apr 2014 15:34:34 +0200 Subject: [PATCH] Make sure "ev-tstvec" does not hold on to a released object, because the storage may be re-used during GC. This would magically turn the released (and probably mangled) data into a heap-object again, should the heap be resized. Signed-off-by: Peter Bex --- tests/lolevel-tests.scm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/tests/lolevel-tests.scm b/tests/lolevel-tests.scm index 3a1dc70..886a07a 100644 --- a/tests/lolevel-tests.scm +++ b/tests/lolevel-tests.scm @@ -217,7 +217,10 @@ (define ev-tstvec (object-evict tstvec)) (assert (not (eq? tstvec ev-tstvec))) (assert (object-evicted? ev-tstvec)) -(object-release ev-tstvec) +(set! ev-tstvec + (let ((old ev-tstvec)) + (object-release old) + #f)) ; object-evict-to-location -- 1.7.9.5