join-rows ( left right vars -- )

Vocabulary

stack-checker.row-polymorphism.private

Inputs

left	an object
right	an object
vars	an object

Outputs

None

Definition

USING: accessors assocs kernel sequences ;

IN: stack-checker.row-polymorphism.private

:: join-rows ( left right vars -- )
    left group>> :> group right group>> :> old-group vars values 
    [| row |
        row group>> old-group eq?
        [ row group >>group drop ] when
    ] each ;