~ chicken-core (chicken-5) 135b562f38f62c247a819479e62838fcde691150

commit 135b562f38f62c247a819479e62838fcde691150
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Mon Jul 20 22:24:39 2015 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Mon Jul 20 22:24:39 2015 +0200

    in toplevel, call C_reclaim with correct toplevel entry name

diff --git a/c-backend.scm b/c-backend.scm
index 92d9e9ee..c8d37d06 100644
--- a/c-backend.scm
+++ b/c-backend.scm
@@ -790,7 +790,7 @@
 			(gen #t "C_resize_stack(" target-stack-size ");") ) )
 		    (gen #t "C_check_nursery_minimum(" demand ");"
 			 #t "if(!C_demand(" demand ")){"
-			 #t "C_save_and_reclaim((void*)C_toplevel,c,av);}"
+			 #t "C_save_and_reclaim((void*)C_" topname ",c,av);}"
 			 #t "toplevel_initialized=1;"
 			 #t "if(!C_demand_2(" ldemand ")){"
 			 #t "C_save(t1);"