From c92a8a4f73a44d82da491858a9ab5decce3d3b59 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Thu, 6 Dec 2007 13:40:35 -0600
Subject: [PATCH] Remove seq>stack as it does not compile

---
 extra/combinators/lib/lib.factor | 3 ---
 1 file changed, 3 deletions(-)

diff --git a/extra/combinators/lib/lib.factor b/extra/combinators/lib/lib.factor
index fe11fd1338..047887bcc8 100644
--- 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 ;