init-span ( rule -- )

Vocabulary

xmode.rules

Inputs

rule

an object

Outputs

None

Definition

USING: accessors kernel ;

IN: xmode.rules

: init-span ( rule -- )
    dup delegate>>
    [ drop ]
    [ dup body-token>> standard-rule-set swap delegate<< ] if ;