update-m ( ast m -- )

Vocabulary

peg

Inputs

ast	an object
m	an object

Outputs

None

Definition

USING: accessors kernel namespaces ;

IN: peg

: update-m ( ast m -- ) swap >>ans pos get >>pos drop ;