update-m ( ast m -- )

Vocabulary

peg.private

Inputs

ast	an object
m	an object

Outputs

None

Definition

USING: accessors kernel namespaces ;

IN: peg.private

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