check-groups ( seq n -- seq n )

Vocabulary

grouping.private

Inputs

seq	an object
n	an object

Outputs

seq	an object
n	an object

Definition

USING: grouping kernel math ;

IN: grouping.private

: check-groups ( seq n -- seq n )
    dup 0 <= [ groups-error ] when ; inline