lr-answer ( r p m -- ast ) - Factor Documentation

lr-answer ( r p m -- ast )

Vocabulary
peg.private

Inputs

r	an object
p	an object
m	an object

Outputs

ast

Definition

USING: accessors kernel peg ;

IN: peg.private

:: lr-answer ( r p m -- ast )
m ans>> head>> :> h h rule-id>> r rule-id eq? [
m ans>> seed>> m ans<< m ans>> fail =
[ fail ] [ h p r m grow-lr ] if
] [ m ans>> seed>> ] if ; inline