Add a declaration to the expansion of rule results.

diff --git a/src/compiler/base/pmpars.scm b/src/compiler/base/pmpars.scm
index 6138dacadceb971ace1c3b9eac7188dadb54d348..fd15e959856fe72d58cbb35e0670c1af9f41ffc3 100644 (file)
--- 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