Fix thinko.

diff --git a/v7/src/sf/xform.scm b/v7/src/sf/xform.scm
index 34b3b09b7ce6bcf84b73348d002bfacd9c516f47..b2481ae1f17902bf43c807f9601ea19829fbca1d 100644 (file)
--- 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