From 6dfbe7f7ba324c95d070ab548feb2945d6af531e Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Mon, 18 May 1998 03:07:59 +0000 Subject: [PATCH] Fix thinko. --- v7/src/sf/xform.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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 -- 2.25.1