svn: r10183
This commit is contained in:
Eli Barzilay 2008-06-06 19:46:56 +00:00
parent 3718da39a8
commit 36809f291e

View File

@ -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))