Vocabulary
xml.tokenize

Inputs
quota quotation with stack effect ( ... char -- ... ? )
spotan object


Outputs
None

Definition


:: (skip-until)
( ... quot: ( ... char -- ... ? ) spot -- ... )
spot char>>
[ quot call [ spot next* quot spot (skip-until) ] unless ]
when* ; inline recursive