20 lines
510 B
Factor
20 lines
510 B
Factor
! Copyright (C) 2005 Slava Pestov.
|
|
! See http://factor.sf.net/license.txt for BSD license.
|
|
IN: sequences
|
|
USING: generic kernel lists strings ;
|
|
|
|
G: tree-each ( obj quot -- | quot: elt -- )
|
|
[ over ] [ type ] ; inline
|
|
|
|
: tree-each-with ( obj vector quot -- )
|
|
swap [ with ] tree-each 2drop ; inline
|
|
|
|
M: object tree-each call ;
|
|
|
|
M: sequence tree-each swap [ swap tree-each ] each-with ;
|
|
|
|
M: string tree-each call ;
|
|
|
|
M: cons tree-each ( cons quot -- )
|
|
>r uncons r> tuck >r >r tree-each r> r> tree-each ;
|