suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

simplify paths before using as hash keys

Browse Source
This commit is contained in:
Ryan Culpepper 2014-10-29 08:54:03 -04:00
parent 095176736d
commit e35019d4dc
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pkgs/macro-debugger-pkgs/macro-debugger-text-lib/macro-debugger/analysis/show-dependencies.rkt
View File

@ -36,10 +36,10 @@
(define (resolve-module-path-index* mpi relto) (define (resolve-module-path-index* mpi relto)
(let ([v (resolve-module-path-index mpi relto)]) (let ([v (resolve-module-path-index mpi relto)])
(match v (match v
[(? path?) (make-resolved-module-path v)] [(? path?) (make-resolved-module-path (simplify-path v))]
[(? symbol?) (make-resolved-module-path v)] [(? symbol?) (make-resolved-module-path v)]
[(list* 'submod (? path? base) syms) [(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) [(list* 'submod (? symbol? base) syms)
(error 'resolve-module-path-index* (error 'resolve-module-path-index*
"failed to resolve submodule path base in: ~e" v)]))) "failed to resolve submodule path base in: ~e" v)])))