~ chicken-core (chicken-5) cb63b29fa29890787e45ee2cbe0bc74ad1d27aa3
commit cb63b29fa29890787e45ee2cbe0bc74ad1d27aa3
Author: Peter Bex <peter@more-magic.net>
AuthorDate: Sat Aug 22 18:17:20 2015 +0200
Commit: Peter Bex <peter@more-magic.net>
CommitDate: Sat Aug 22 19:37:27 2015 +0200
in toplevel, call C_reclaim with correct toplevel entry name
diff --git a/c-backend.scm b/c-backend.scm
index 380dcf96..c9b07c4b 100644
--- a/c-backend.scm
+++ b/c-backend.scm
@@ -806,7 +806,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);"
Trap