Hi,

try this: (but look out!) As long, as Rebol functions are CQSB
with DRP, there are problems with Rule-res word local to A-B-rule
function.

A-B-rule: func [
    "Generate an A-B parse rule"
    A [block!] {A-rule}
    B [block!] {B-rule}
    /local succeed fail rule-res
] [
    [[B to end (rule-res: [none skip]) | A (rule-res: [])]
rule-res]
]

Regards
    Ladislav

Reply via email to