19 lines
387 B
Factor
19 lines
387 B
Factor
! 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 ;
|