suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

fix default value of #:blueboxes-dirs

Browse Source
This commit is contained in:
Robby Findler 2015-04-13 12:17:55 -05:00
parent f7672c6186
commit 17a317fe3d
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
scribble-lib/scribble/blueboxes.rkt
View File

@ -12,7 +12,14 @@
[blueboxes-cache? (-> any/c boolean?)])) [blueboxes-cache? (-> any/c boolean?)]))
(struct blueboxes-cache (info-or-paths) #:mutable) (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)) (define cache (blueboxes-cache blueboxes-dirs))
(when populate? (populate-cache! cache)) (when populate? (populate-cache! cache))
cache) cache)