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

PR 9290

Browse Source 
svn: r9283
This commit is contained in:
Robby Findler 2008-04-13 13:35:59 +00:00
parent 26054d64ca
commit 320068fc89
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
collects/drscheme/private/module-overview.ss
View File

@ -503,11 +503,11 @@
(field [special-children (make-hasheq)]) (field [special-children (make-hasheq)])
(define/public (is-special-key-child? key child) (define/public (is-special-key-child? key child)
(let ([ht (hash-ref special-children key (λ () #f))]) (let ([ht (hash-ref special-children key #f)])
(and ht (and ht
(hash-ref ht child (λ () #f))))) (hash-ref ht child #f))))
(define/public (add-special-key-child key child) (define/public (add-special-key-child key child)
(let ([ht (hash-ref special-children key (λ () #f))]) (let ([ht (hash-ref special-children key #f)])
(unless ht (unless ht
(set! ht (make-hasheq)) (set! ht (make-hasheq))
(hash-set! special-children key ht)) (hash-set! special-children key ht))
@ -988,6 +988,9 @@
(define (get-key dr) (define (get-key dr)
(and (module-path-index? dr) (and (module-path-index? dr)
(let-values ([(a b) (module-path-index-split dr)]) (let-values ([(a b) (module-path-index-split dr)])
(and (pair? a) (cond
(symbol? (car a)) [(symbol? a) 'lib]
(car a)))))) [(pair? a)
(and (symbol? (car a))
(car a))]
[else #f])))))