better filtering of user docs (?)

svn: r11056
This commit is contained in:
Eli Barzilay 2008-08-03 22:28:03 +00:00
parent 74dd0655e5
commit 1d00d880ec

View File

@ -30,7 +30,8 @@
(define (user-doc? doc)
(or (memq 'user-doc-root (doc-flags doc))
(memq 'user-doc (doc-flags doc))))
(memq 'user-doc (doc-flags doc))
(not (doc-under-main? doc))))
(define (filter-user-docs docs make-user?)
(cond ;; Specifically disabled user stuff, filter