From 8caf639791b58509790f8d477bb34a13b2f26558 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 17 May 2009 12:31:51 +0000 Subject: [PATCH] identifier-prune-lexical-context (4.2.0.2) svn: r14850 original commit: 70859f0d0bcb1b67fccd16208dfa5cd9289dfd2e --- collects/compiler/zo-parse.ss | 2 ++ 1 file changed, 2 insertions(+) diff --git a/collects/compiler/zo-parse.ss b/collects/compiler/zo-parse.ss index 1f04af58ec..8af27954f9 100644 --- a/collects/compiler/zo-parse.ss +++ b/collects/compiler/zo-parse.ss @@ -505,6 +505,7 @@ (define-form-struct wrap ()) (define-form-struct (lexical-rename wrap) (alist)) (define-form-struct (phase-shift wrap) (amt src dest)) +(define-form-struct (prune wrap) (sym)) (define-form-struct (module-rename wrap) (phase kind set-id unmarshals renames mark-renames plus-kern?)) (define-form-struct all-from-module (path phase src-phase exceptions prefix)) @@ -691,6 +692,7 @@ '(#%mark-barrier)] [(box? a) (match (unbox a) + [(list (? symbol?) ...) (make-prune (unbox a))] [`#(,amt ,src ,dest #f) (make-phase-shift amt (parse-module-path-index cp src)