pextend-left ( p q -- p q )

Vocabulary

math.polynomials.private

Inputs

p	an object
q	an object

Outputs

p	an object
q	an object

Definition

USING: kernel sequences ;

IN: math.polynomials.private

: pextend-left ( p q -- p q ) 2dup max-length 2pad-head ;