From: Taylor R Campbell <campbell@mumble.net>
Date: Sat, 15 Mar 2014 20:30:09 +0000 (+0000)
Subject: Fix sf/cgen so it doesn't just drop declarations for the compiler.
X-Git-Tag: release-9.2.0~31
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8825ec74056881dae11bab45b716d879deacbabc;p=mit-scheme.git

Fix sf/cgen so it doesn't just drop declarations for the compiler.
---

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)))