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)])
(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
(hash-ref ht child (λ () #f)))))
(hash-ref ht child #f))))
(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
(set! ht (make-hasheq))
(hash-set! special-children key ht))
@ -988,6 +988,9 @@
(define (get-key dr)
(and (module-path-index? dr)
(let-values ([(a b) (module-path-index-split dr)])
(and (pair? a)
(symbol? (car a))
(car a))))))
(cond
[(symbol? a) 'lib]
[(pair? a)
(and (symbol? (car a))
(car a))]
[else #f])))))