From b4baa188017b9dfe29ab2e1b6c7029f805d30b39 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sat, 11 Apr 2015 18:01:57 -0500 Subject: [PATCH] use get-rendered-doc-directories to find the blueboxes.rktd files --- scribble-lib/scribble/blueboxes.rkt | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) diff --git a/scribble-lib/scribble/blueboxes.rkt b/scribble-lib/scribble/blueboxes.rkt index c74406e4..af34c411 100644 --- a/scribble-lib/scribble/blueboxes.rkt +++ b/scribble-lib/scribble/blueboxes.rkt @@ -1,5 +1,5 @@ #lang racket/base -(require setup/dirs +(require setup/xref racket/serialize racket/contract scribble/core) @@ -56,11 +56,8 @@ (define (build-blueboxes-cache) (filter values - (for*/list ([doc-search-dir (in-list (get-doc-search-dirs))] - [doc-dir-name (in-list (if (directory-exists? doc-search-dir) - (directory-list doc-search-dir) - '()))]) - (define x (build-path doc-search-dir doc-dir-name "blueboxes.rktd")) + (for*/list ([doc-dir-name (in-list (get-rendered-doc-directories #f #f))]) + (define x (build-path doc-dir-name "blueboxes.rktd")) (and (file-exists? x) (call-with-input-file x (λ (port)