row-shape ( effect -- shape )

Vocabulary

foogle.private

Inputs

effect

an object

Outputs

shape

an object

Definition

USING: accessors arrays kernel ;

IN: foogle.private

: row-shape ( effect -- shape )
    [ in-var>> >boolean ] [ out-var>> >boolean ]
    [ [ in-var>> ] [ out-var>> ] bi = ] tri 3array ;