~ chicken-core (chicken-5) 0ce1e7ec6e4e9bf19fc5154840c8dd03cd3fe295

commit 0ce1e7ec6e4e9bf19fc5154840c8dd03cd3fe295
Author:     Peter Bex <peter@more-magic.net>
AuthorDate: Sat Aug 22 18:17:13 2015 +0200
Commit:     Peter Bex <peter@more-magic.net>
CommitDate: Sat Aug 22 19:37:27 2015 +0200

    missing closing brace for toplevel-lambda without lf

diff --git a/c-backend.scm b/c-backend.scm
index 25b7050d..380dcf96 100644
--- a/c-backend.scm
+++ b/c-backend.scm
@@ -806,18 +806,18 @@
 			(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_toplevel,c,av);}"
 			 #t "toplevel_initialized=1;"
 			 #t "if(!C_demand_2(" ldemand ")){"
 			 #t "C_save(t1);"
-			 #t "C_rereclaim2(" ldemand "*sizeof(C_word), 1);"
+			 #t "C_rereclaim2(" ldemand "*sizeof(C_word),1);"
 			 #t "t1=C_restore;}"
 			 #t "a=C_alloc(" demand ");")
 		    (when (not (zero? llen))
 		      (gen #t "C_initialize_lf(lf," llen ");")
 		      (literal-frame)
-		      (gen #t "C_register_lf2(lf," llen ",create_ptable());"
-			   #t #\{) ) ) ]
+		      (gen #t "C_register_lf2(lf," llen ",create_ptable());"))
+		    (gen #\{) ) ]
 		 [rest
 		  (gen #t "C_word *a;")
 		  (when (and (not unsafe) (not no-argc-checks) (> n 2) (not empty-closure))