lookup-rule ( rule parser -- rule' )

Vocabulary

peg.ebnf.private

Inputs

rule	an object
parser	an object

Outputs

rule'

an object

Definition

USING: kernel peg.ebnf ;

IN: peg.ebnf.private

: lookup-rule ( rule parser -- rule' )
    2dup rule [ 2nip ] [ no-rule ] if* ;