(set-relative) ( args rel -- args )

Vocabulary

svg

Inputs

args	an object
rel	an object

Outputs

args

an object

Definition

USING: accessors kernel sequences ;

IN: svg

: (set-relative) ( args rel -- args )
    '[ [ _ >>relative? drop ] each ] keep ;