From: Joe Marshall <eval.apply@gmail.com>
Date: Fri, 13 Jan 2012 03:39:43 +0000 (-0800)
Subject: Add a declaration to the expansion of rule results.
X-Git-Tag: release-9.2.0~334^2~27
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=eee0a1f4f011728b9d9f9e0f6bf622865db37897;p=mit-scheme.git

Add a declaration to the expansion of rule results.
---

diff --git a/src/compiler/base/pmpars.scm b/src/compiler/base/pmpars.scm
index 6138dacad..fd15e9598 100644
--- a/src/compiler/base/pmpars.scm
+++ b/src/compiler/base/pmpars.scm
@@ -144,6 +144,7 @@ USA.
 				 ,@qualifiers
 				 (,r-lambda () ,body)))))
       `(,r-lambda ,outer-vars
+	  (,(close-syntax 'DECLARE environment) (INTEGRATE ,@outer-vars))
 	  ,(if (and (null? inner-vars)
 		    (null? xforms))
 	       qualified-body