method
vlval l =
if
compareLval l lv
then
(br :=
true
;
SkipChildren
)
else
DoChildren