From e35019d4dc93cbfbb39a2ee7baea3c2bf1d6c54e Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Wed, 29 Oct 2014 08:54:03 -0400 Subject: [PATCH] simplify paths before using as hash keys --- .../macro-debugger/analysis/show-dependencies.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/pkgs/macro-debugger-pkgs/macro-debugger-text-lib/macro-debugger/analysis/show-dependencies.rkt b/pkgs/macro-debugger-pkgs/macro-debugger-text-lib/macro-debugger/analysis/show-dependencies.rkt index fdb7726eb4..d095ab6501 100644 --- a/pkgs/macro-debugger-pkgs/macro-debugger-text-lib/macro-debugger/analysis/show-dependencies.rkt +++ b/pkgs/macro-debugger-pkgs/macro-debugger-text-lib/macro-debugger/analysis/show-dependencies.rkt @@ -36,10 +36,10 @@ (define (resolve-module-path-index* mpi relto) (let ([v (resolve-module-path-index mpi relto)]) (match v - [(? path?) (make-resolved-module-path v)] + [(? path?) (make-resolved-module-path (simplify-path v))] [(? symbol?) (make-resolved-module-path v)] [(list* 'submod (? path? base) syms) - (make-resolved-module-path (cons base syms))] + (make-resolved-module-path (cons (simplify-path base) syms))] [(list* 'submod (? symbol? base) syms) (error 'resolve-module-path-index* "failed to resolve submodule path base in: ~e" v)])))