From 2366e098dc8b06eba3d7285ada6cb5d722a62fe6 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 2 Mar 2002 04:31:41 +0000
Subject: [PATCH] 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.

---
 v7/src/runtime/syntax-output.scm | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

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