From 320068fc899dd42d93cada16e9a6ec95b6a835b7 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sun, 13 Apr 2008 13:35:59 +0000 Subject: [PATCH] PR 9290 svn: r9283 --- collects/drscheme/private/module-overview.ss | 15 +++++++++------ 1 file changed, 9 insertions(+), 6 deletions(-) diff --git a/collects/drscheme/private/module-overview.ss b/collects/drscheme/private/module-overview.ss index 0a44e2dda4..b5c578cc86 100644 --- a/collects/drscheme/private/module-overview.ss +++ b/collects/drscheme/private/module-overview.ss @@ -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])))))