write-segment ( segment -- )

Vocabulary

tinyvg

Inputs

segment

an object

Outputs

None

Definition

USING: accessors kernel sequences ;

IN: tinyvg

: write-segment ( segment -- )
    [ start>> write-point ]
    [ instructions>> [ write-instruction ] each ] bi ;