~ chicken-core (chicken-5) 24b6ab7d2b670a837ae21fc67632b701856e3113


commit 24b6ab7d2b670a837ae21fc67632b701856e3113
Author:     Peter Bex <peter.bex@xs4all.nl>
AuthorDate: Wed Jun 20 21:36:39 2012 +0200
Commit:     Christian Kellermann <ckeen@pestilenz.org>
CommitDate: Thu Jun 21 12:03:31 2012 +0200

    Fix typo in call to heap_free (second argument is currently unused, but it might potentially be used in the future)
    
    Signed-off-by: Christian Kellermann <ckeen@pestilenz.org>

diff --git a/runtime.c b/runtime.c
index ced344ba..bf4e578a 100644
--- a/runtime.c
+++ b/runtime.c
@@ -3231,7 +3231,7 @@ C_regparm void C_fcall C_rereclaim2(C_uword size, int double_plus)
   }
 
   heap_free (heapspace1, heapspace1_size);
-  heap_free (heapspace2, heapspace1_size);
+  heap_free (heapspace2, heapspace2_size);
   
   if ((heapspace2 = heap_alloc (size, &tospace_start)) == NULL)
     panic(C_text("out ot memory - cannot allocate heap segment"));
Trap