lazy-lists: add seq>list
parent
d55304eec6
commit
61bdf14f7b
|
@ -262,4 +262,7 @@ M: lazy-zip cdr ( lazy-zip -- cdr )
|
||||||
|
|
||||||
M: lazy-zip nil? ( lazy-zip -- bool )
|
M: lazy-zip nil? ( lazy-zip -- bool )
|
||||||
drop f ;
|
drop f ;
|
||||||
|
|
||||||
|
: seq>list ( seq -- list )
|
||||||
|
reverse nil [ swap cons ] reduce ;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue