check-compound-loop ( n/f string -- n/f string ? )

Vocabulary

modern

Inputs

n/f	an object
string	an object

Outputs

n/f	an object
string	an object
?	an object

Definition

USING: kernel modern.slices unicode ;

IN: modern

: check-compound-loop ( n/f string -- n/f string ? )
    [ ] [ peek1-from ] [ previous-from ] 2tri [ blank? ] bi@ or
    not pick and ;