www

Unnamed repository; edit this file 'description' to name the repository.
Log | Files | Refs | README | LICENSE

commit 49e64893cc0aa58b7542e58cd2434d5e7ba92616
parent 04d28e74db373fbc00bb81ff70c362c5c934844f
Author: JackFirth <jackhfirth@gmail.com>
Date:   Fri, 20 Feb 2015 23:46:56 -0800

Fix documentation statistics functions

Diffstat:
Mdoc-coverage/export-count.rkt | 9+++++++--
1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/doc-coverage/export-count.rkt b/doc-coverage/export-count.rkt @@ -2,10 +2,15 @@ (require "export-lists.rkt") +(provide module-num-exports + module-num-documented-exports + module-num-undocumented-exports + module-documentation-ratio) + (define module-num-exports (compose length module->all-exported-names)) (define module-num-documented-exports (compose length module->documented-exported-names)) (define module-num-undocumented-exports (compose length module->undocumented-exported-names)) -(define (module-documentation% mod) +(define (module-documentation-ratio mod) (/ (module-num-documented-exports mod) - (module-num-undocumented-exports mod))) + (module-num-exports mod)))