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

use get-rendered-doc-directories to find the blueboxes.rktd files

Browse Source
This commit is contained in:
Robby Findler 2015-04-11 18:01:57 -05:00
parent 74d3c5fa99
commit b4baa18801
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,5 +1,5 @@
#lang racket/base #lang racket/base
(require setup/dirs (require setup/xref
racket/serialize racket/serialize
racket/contract racket/contract
scribble/core) scribble/core)
@ -56,11 +56,8 @@
(define (build-blueboxes-cache) (define (build-blueboxes-cache)
(filter (filter
values values
(for*/list ([doc-search-dir (in-list (get-doc-search-dirs))] (for*/list ([doc-dir-name (in-list (get-rendered-doc-directories #f #f))])
[doc-dir-name (in-list (if (directory-exists? doc-search-dir) (define x (build-path doc-dir-name "blueboxes.rktd"))
(directory-list doc-search-dir)
'()))])
(define x (build-path doc-search-dir doc-dir-name "blueboxes.rktd"))
(and (file-exists? x) (and (file-exists? x)
(call-with-input-file x (call-with-input-file x
(λ (port) (λ (port)