#12 bigloo regular grammar: `submatch'es intersection

[Vladimir V. Tsichevski]

Regular grammar bug

((regular-grammar
()
((:(submatch (+ upper))(submatch (: upper lower)))
(print(the-submatch 1)"-"(the-submatch 2))
(ignore))
)
(open-input-string "ASd"))

prints "AS-Sd", indicating, that two 'submatch' regions intersect