Fix documentation statistics functions
This commit is contained in:
parent
04d28e74db
commit
49e64893cc
|
@ -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)))
|
||||
|
|
Loading…
Reference in New Issue
Block a user