<line-context> ( ruleset parent -- line-context )

Vocabulary

xmode.marker.context

Inputs

ruleset	an object
parent	an object

Outputs

line-context

an object

Definition

USING: accessors kernel xmode.rules ;

IN: xmode.marker.context

: <line-context> ( ruleset parent -- line-context )
    over rule-set? [ "not a rule-set" throw ] unless
    line-context new swap >>parent swap >>in-rule-set ;