From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 18 May 1998 03:07:59 +0000 (+0000)
Subject: Fix thinko.
X-Git-Tag: 20090517-FFI~4794
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=6dfbe7f7ba324c95d070ab548feb2945d6af531e;p=mit-scheme.git

Fix thinko.
---

diff --git a/v7/src/sf/xform.scm b/v7/src/sf/xform.scm
index 34b3b09b7..b2481ae1f 100644
--- a/v7/src/sf/xform.scm
+++ b/v7/src/sf/xform.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: xform.scm,v 4.7 1998/05/18 03:02:53 cph Exp $
+$Id: xform.scm,v 4.8 1998/05/18 03:07:59 cph Exp $
 
 Copyright (c) 1988-98 Massachusetts Institute of Technology
 
@@ -65,11 +65,11 @@ MIT in each case. |#
 	  (begin
 	    (if (not top-level?)
 		(error "Open blocks allowed only at top level:" expression))
-	    (if (not (assq 'USUAL-INTEGRATIONS declarations))
-		(write-string ui-warning (notification-output-port)))
 	    (call-with-values
 		(lambda () (open-block-components expression values))
 	      (lambda (auxiliary declarations body)
+		(if (not (assq 'USUAL-INTEGRATIONS declarations))
+		    (write-string ui-warning (notification-output-port)))
 		(transform/open-block* expression
 				       block
 				       environment