From 8825ec74056881dae11bab45b716d879deacbabc Mon Sep 17 00:00:00 2001
From: Taylor R Campbell <campbell@mumble.net>
Date: Sat, 15 Mar 2014 20:30:09 +0000
Subject: [PATCH] Fix sf/cgen so it doesn't just drop declarations for the
 compiler.

---
 src/sf/cgen.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/sf/cgen.scm b/src/sf/cgen.scm
index e0b8506c2..15b0a664b 100644
--- a/src/sf/cgen.scm
+++ b/src/sf/cgen.scm
@@ -184,8 +184,10 @@ USA.
 			(body  (procedure/body procedure)))
 		    (if (open-block? body)
 			(cgen-open-block body)
-			(cgen/expression (list block)
-					 (procedure/body procedure)))))))
+			(make-open-block
+			 '()
+			 (maybe-flush-declarations (block/declarations block))
+			 (cgen/expression (list block) body)))))))
 
 (define (cgen-open-block expression)
   (let ((block (open-block/block expression)))
-- 
2.25.1