arity ( quots -- n )

Vocabulary

combinators.short-circuit.smart.private

Inputs

quots

an object

Outputs

n

an object

Definition

USING: accessors effects kernel math sequences stack-checker ;

IN: combinators.short-circuit.smart.private

: arity ( quots -- n )
    first infer dup terminated?>>
    [ cannot-determine-arity ] when effect-height neg 1 + ;