adjust call to get-info/full so that it respects the contract

2011-11-04 21:48:04 -05:00 · 2011-11-04 21:48:04 -05:00 · 3f8d6eb2b2
commit 3f8d6eb2b2
parent 64ae5268d6
1 changed files with 4 additions and 1 deletions
--- 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)]