bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

Unnamed repository; edit this file 'description' to name the repository.
Log | Files | Refs | README | LICENSE
commit 17a317fe3dde03b20f5a636972e05be120e5f0c9
parent f7672c6186602721232555cfba12ef519d3de870
Author: Robby Findler <robby@racket-lang.org>
Date:   Mon, 13 Apr 2015 12:17:55 -0500

fix default value of #:blueboxes-dirs

Diffstat:

Mscribble-lib/scribble/blueboxes.rkt | 9++++++++-


1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/scribble-lib/scribble/blueboxes.rkt b/scribble-lib/scribble/blueboxes.rkt
@@ -12,7 +12,14 @@
   [blueboxes-cache? (-> any/c boolean?)]))
 
 (struct blueboxes-cache (info-or-paths) #:mutable)
-(define (make-blueboxes-cache populate? #:blueboxes-dirs [blueboxes-dirs (get-doc-search-dirs)])
+(define (make-blueboxes-cache
+         populate?
+         #:blueboxes-dirs
+         [blueboxes-dirs (for*/list ([d (in-list (get-doc-search-dirs))]
+                                     [c (in-list (if (directory-exists? d)
+                                                     (directory-list d)
+                                                     '()))])
+                           (build-path d c))])
   (define cache (blueboxes-cache blueboxes-dirs))
   (when populate? (populate-cache! cache))
   cache)