From 7d2e23dc280044a1cd216d12457b8f4acec3154b Mon Sep 17 00:00:00 2001 From: Ben Greenman Date: Sun, 30 Jul 2017 21:14:47 -0400 Subject: [PATCH] setup-scribblings: guard against missing 'scribblings 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` --- pkgs/racket-index/setup/scribble.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/pkgs/racket-index/setup/scribble.rkt b/pkgs/racket-index/setup/scribble.rkt index 69cb671cef..c79af9bf85 100644 --- a/pkgs/racket-index/setup/scribble.rkt +++ b/pkgs/racket-index/setup/scribble.rkt @@ -180,7 +180,7 @@ infos)]) (and (not (memq #f infos)) infos)))) (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)] [dir (directory-record-path rec)]) (if s