(match-all) ( seq pattern-seq -- )

Vocabulary

match

Inputs

seq	an object
pattern-seq	an object

Outputs

None

Definition

USING: kernel make ;

IN: match

: (match-all) ( seq pattern-seq -- )
    [ (match-first) ] keep
    [ , [ swap (match-all) ] [ drop ] if* ] [ 2drop ] if* ;