keep-going? ( assoc -- ? )

Vocabulary

generic.single

Inputs

assoc

an object

Outputs

?

an object

Definition

USING: classes.algebra kernel namespaces sequences ;

IN: generic.single

: keep-going? ( assoc -- ? )
    assumed get swap second first class<= ;