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

check-require: fix submod-related bugs

Browse Source
This commit is contained in:
Ryan Culpepper 2014-10-30 02:58:56 -04:00
parent 73f4fa86a3
commit a02beaa821
2 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
pkgs/macro-debugger-pkgs/macro-debugger-text-lib/macro-debugger/analysis/private/moduledb.rkt
View File

@ -90,4 +90,7 @@
[(list 'file part) [(list 'file part)
(ok? part)] (ok? part)]
[(list 'planet part ...) [(list 'planet part ...)
#t]))) #t]
[(list* 'submod base _)
;; Never bypass to submodules
#f])))

8
pkgs/macro-debugger-pkgs/macro-debugger-text-lib/macro-debugger/analysis/private/nom-use-alg.rkt
View File

@ -140,7 +140,13 @@
;; FIXME: cache tables ;; FIXME: cache tables
(define (mod->bypass-table mod) (define (mod->bypass-table mod)
(define table (make-hash)) (define table (make-hash))
(let ([prov (get-module-all-exports mod)]) (let/ec escape
(define prov
;; FIXME: hack around mis-resolution of mpis in case of submodules
;; by just bailing out; should just result in missed bypass opportunities
(with-handlers ([(lambda (e) #t)
(lambda (e) (escape (void)))])
(get-module-all-exports mod)))
(for* ([phase+exps (in-list prov)] (for* ([phase+exps (in-list prov)]
#:when (car phase+exps) ;; Skip for-label provides #:when (car phase+exps) ;; Skip for-label provides
[name+srcs (in-list (cdr phase+exps))] [name+srcs (in-list (cdr phase+exps))]