(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 ] curry [ each ] curry keep ;