From 36809f291ece1362d4169bbf50f77a291f27009e Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Fri, 6 Jun 2008 19:46:56 +0000 Subject: [PATCH] typo svn: r10183 --- collects/setup/private/path-utils.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/setup/private/path-utils.ss b/collects/setup/private/path-utils.ss index 2c39a07d09..683fa2aec5 100644 --- a/collects/setup/private/path-utils.ss +++ b/collects/setup/private/path-utils.ss @@ -11,7 +11,7 @@ ;; user-doc-mode can be `false-if-missing' or `never' (define (doc-path dir name flags [user-doc-mode #f]) (define (user-doc [sub #f]) - (and (not (eq? 'never)) + (and (not (eq? 'never user-doc-mode)) (let ([d (find-user-doc-dir)]) (and (or (not (eq? 'false-if-missing user-doc-mode)) (directory-exists? d))