rule-match-token* ( rule -- id )

Vocabulary

xmode.marker

Inputs

rule

an object

Outputs

id

an object

Definition

USING: accessors combinators kernel xmode.marker.state ;

IN: xmode.marker

: rule-match-token* ( rule -- id )
    dup match-token>> {
        { f [ dup body-token>> ] }
        { t [ current-rule-set default>> ] }
        [ ]
    } case nip ;