Remove seq>stack as it does not compile

2007-12-06 13:40:35 -06:00 · 2007-12-06 13:40:35 -06:00 · c92a8a4f73
parent 0f8164842a
commit c92a8a4f73
1 changed files with 0 additions and 3 deletions
--- a/extra/combinators/lib/lib.factor
+++ b/extra/combinators/lib/lib.factor
@ -70,9 +70,6 @@ MACRO: napply ( n -- )
 MACRO: nfirst ( n -- )
    [ [ swap nth ] curry [ keep ] curry ] map concat [ drop ] compose ;

-: seq>stack ( seq -- )
-    dup length nfirst ; inline
-
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

 : sigma ( seq quot -- n ) [ rot slip + ] curry 0 swap reduce ;