short-effect ( effect -- pair )

Vocabulary

tools.test.private

Inputs

effect

an object

Outputs

pair

an object

Definition

USING: accessors arrays kernel sequences ;

IN: tools.test.private

: short-effect ( effect -- pair )
    [ in>> length ] [ out>> length ] bi 2array ;