From 3f8d6eb2b2bb5f2d7c39ed910a20729a687def7f Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Fri, 4 Nov 2011 21:48:04 -0500 Subject: [PATCH] adjust call to get-info/full so that it respects the contract --- collects/setup/xref.rkt | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/collects/setup/xref.rkt b/collects/setup/xref.rkt index 13432ec826..8316c56d78 100644 --- a/collects/setup/xref.rkt +++ b/collects/setup/xref.rkt @@ -19,7 +19,10 @@ (for/hash ([k (in-list (find-relevant-directories '(scribblings) 'no-planet))]) (values k #t)))) (for*/list ([dir (find-relevant-directories '(scribblings) 'all-available)] - [d ((get-info/full dir) 'scribblings)]) + [d (let ([info-proc (get-info/full dir)]) + (if info-proc + (info-proc 'scribblings) + '()))]) (unless (and (list? d) (pair? d)) (error 'xref "bad scribblings entry: ~e" d)) (let* ([len (length d)]