From 934b4700da3649fcff2495e71388db28062a3243 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 2 Sep 2003 16:35:24 +0000 Subject: [PATCH] . original commit: 908b2a76be0fcbf51b9337155ea29672d00a970f --- collects/mzlib/private/package-helper.ss | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/collects/mzlib/private/package-helper.ss b/collects/mzlib/private/package-helper.ss index d6d2910..6c7887f 100644 --- a/collects/mzlib/private/package-helper.ss +++ b/collects/mzlib/private/package-helper.ss @@ -198,12 +198,14 @@ name)))))) (get-renames (syntax-local-introduce name) err))) - (define (walk-path path env+rns+subs stx rename) + (define (walk-path path env+rns+subs stx rename cp-rename) (let loop ([path path][env+rns+subs env+rns+subs][rename rename]) (cond [(null? path) (values env+rns+subs rename)] - [else (let* ([new-name (stx-assoc (syntax-local-introduce (car path)) - (cadr env+rns+subs))] + [else (let* ([id (cp-rename (syntax-local-introduce (car path)))] + [new-name (if (caddr env+rns+subs) + (cons id id) + (stx-assoc id (cadr env+rns+subs)))] [v (and new-name (if (caddr env+rns+subs) (bound-identifier-mapping-get (caddr env+rns+subs)