From 626bef922e0886ded9b06d4a693eee50dc9a1893 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 26 Apr 2011 11:00:20 -0500 Subject: [PATCH] dont insist that names beginning with #% are documented --- collects/tests/utils/docs-complete.rkt | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/collects/tests/utils/docs-complete.rkt b/collects/tests/utils/docs-complete.rkt index ef898719c1..2a442dc59b 100644 --- a/collects/tests/utils/docs-complete.rkt +++ b/collects/tests/utils/docs-complete.rkt @@ -51,13 +51,15 @@ (define undocumented-exports (for/list ([ex (in-list exports)] + #:when ;; skip #%module-begin, #%top, etc. + (not (regexp-match #rx"^#%" (symbol->string ex))) + #:when ;; skip deserialization library stuff + (not (regexp-match #rx"^deserialize-info:" (symbol->string ex))) #:when (not (xref-binding->definition-tag xref (list what ex) - #f)) - #:when - (not (regexp-match #rx"^deserialize-info:" (symbol->string ex)))) + #f))) ex)) (unless (null? undocumented-exports) @@ -77,8 +79,7 @@ 2]))]) (pretty-write (sort undocumented-exports stringstring - #:cache-keys? #t) + #:key symbol->string) (current-error-port))))) (define xref (load-collections-xref))