count-callables ( object -- n )

Vocabulary

tools.coverage.private

Inputs

object

an object

Outputs

n

an object

Definition

IN: tools.coverage.private

GENERIC: count-callables ( object -- n )

Methods

USING: sequences strings tools.coverage tools.coverage.private ;

M: string count-callables [ count-callables ] map-words sum ;


USING: accessors kernel math quotations sequences.deep
tools.coverage.private words ;

M: word count-callables
    def>> 0 [ callable? [ 1 + ] when ] deep-reduce ;