suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

setup-scribblings: guard against missing 'scribblings

Browse Source 
Since `get-info/full` may return a function that is undefined
 for the symbol 'scribblings, pass a failure thunk.

The function can be undefined for 'scribblings if:

1. Install a package with a `scribblings` in its info.rkt
2. Remove `scribblings` from the info file
3. Run `raco setup`
This commit is contained in:
Ben Greenman 2017-07-30 21:14:47 -04:00
parent f29d77d3d8
commit 7d2e23dc28
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pkgs/racket-index/setup/scribble.rkt
View File

@ -180,7 +180,7 @@
infos)]) infos)])
(and (not (memq #f infos)) infos)))) (and (not (memq #f infos)) infos))))
(define ((get-docs main-dirs) i rec) (define ((get-docs main-dirs) i rec)
(let* ([pre-s (and i (i 'scribblings))] (let* ([pre-s (and i (i 'scribblings (λ () #f)))]
[s (validate-scribblings-infos pre-s)] [s (validate-scribblings-infos pre-s)]
[dir (directory-record-path rec)]) [dir (directory-record-path rec)])
(if s (if s