add-query-param ( value key assoc -- )

Vocabulary

urls.encoding.private

Inputs

value	an object
key	an object
assoc	an object

Outputs

None

Definition

USING: arrays assocs combinators kernel sequences strings ;

IN: urls.encoding.private

: add-query-param ( value key assoc -- )
    [
        {
            { [ dup string? ] [ swap 2array ] }
            { [ dup array? ] [ swap suffix ] }
            { [ dup not ] [ drop ] }
        } cond
    ] change-at ;