From 49e64893cc0aa58b7542e58cd2434d5e7ba92616 Mon Sep 17 00:00:00 2001 From: JackFirth Date: Fri, 20 Feb 2015 23:46:56 -0800 Subject: [PATCH] Fix documentation statistics functions --- doc-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 index 4aaa9a3..3925d93 100644 --- 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)))