Fix documentation statistics functions

This commit is contained in:
JackFirth 2015-02-20 23:46:56 -08:00
parent 04d28e74db
commit 49e64893cc

View File

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