! Copyright (C) 2005, 2006 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
IN: sequences
USING: generic kernel namespaces strings ;

GENERIC: flatten* ( obj -- )

M: object flatten* , ;

M: sequence flatten* [ flatten* ] each ;

M: string flatten* , ;

M: sbuf flatten* , ;

M: wrapper flatten* wrapped flatten* ;

: flatten ( obj -- seq ) [ flatten* ] { } make ;