From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 2 Mar 2002 04:31:41 +0000 (+0000)
Subject: Don't output bare block declarations at top level; always wrap them in
X-Git-Tag: 20090517-FFI~2207
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=2366e098dc8b06eba3d7285ada6cb5d722a62fe6;p=mit-scheme.git

Don't output bare block declarations at top level; always wrap them in
an open block.  Otherwise, SF won't act on the declarations, just
passing them through to the compiler.
---

diff --git a/v7/src/runtime/syntax-output.scm b/v7/src/runtime/syntax-output.scm
index b9dc4f28c..122a2a702 100644
--- a/v7/src/runtime/syntax-output.scm
+++ b/v7/src/runtime/syntax-output.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: syntax-output.scm,v 14.4 2002/03/01 17:46:19 cph Exp $
+;;; $Id: syntax-output.scm,v 14.5 2002/03/02 04:31:41 cph Exp $
 ;;;
 ;;; Copyright (c) 1989-1991, 2001, 2002 Massachusetts Institute of Technology
 ;;;
@@ -117,11 +117,11 @@
 	 (lambda (expressions)
 	   (scan-defines (make-sequence expressions) make-open-block))))
     (if (pair? declarations)
-	(if (pair? expressions)
-	    (make-open-block
-	     (cons (make-block-declaration declarations)
-		   expressions))
-	    (make-block-declaration declarations))
+	(make-open-block
+	 (cons (make-block-declaration declarations)
+	       (if (pair? expressions)
+		   expressions
+		   (list (output/unspecific)))))
 	(if (pair? expressions)
 	    (if (pair? (cdr expressions))
 		(make-open-block expressions)