set-X ( turtle seq -- turtle )

Vocabulary

L-system

Inputs

turtle	an object
seq	an object

Outputs

turtle

an object

Definition

USING: accessors kernel sequences ;

IN: L-system

: set-X ( turtle seq -- turtle )
    over ori>> [ set-first ] 2each ;