www

commit 8690d93924cb6a053407428cc3619a3b2c66e35b
parent 67483c4cbff57d29a5ddd31af496b2a47dfc91c2
Author: Ryan Culpepper <ryanc@racket-lang.org>
Date:   Wed, 29 Oct 2014 08:54:03 -0400

simplify paths before using as hash keys

original commit: e35019d4dc93cbfbb39a2ee7baea3c2bf1d6c54e

Diffstat:
M
pkgs/macro-debugger-pkgs/macro-debugger-text-lib/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
@@ -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)])))