From eee0a1f4f011728b9d9f9e0f6bf622865db37897 Mon Sep 17 00:00:00 2001 From: Joe Marshall Date: Thu, 12 Jan 2012 19:39:43 -0800 Subject: [PATCH] Add a declaration to the expansion of rule results. --- src/compiler/base/pmpars.scm | 1 + 1 file changed, 1 insertion(+) 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 -- 2.25.1