count-inputs ( quot -- n )

Vocabulary

fry.private

Inputs

quot

an object

Outputs

n

an object

Definition

IN: fry.private

GENERIC: count-inputs ( quot -- n )

Methods

USING: fry.private kernel ;

M: fry-specifier count-inputs drop 1 ;


USING: accessors fry.private locals.types ;

M: lambda count-inputs body>> count-inputs ;


USING: accessors fry.private locals.types ;

M: let count-inputs body>> count-inputs ;


USING: fry.private kernel ;

M: object count-inputs drop 0 ;


USING: fry.private sequences ;

M: sequence count-inputs [ count-inputs ] map-sum ;