From c4f0756b66218975bb16604964bdd471534f7308 Mon Sep 17 00:00:00 2001
From: Daniel Ehrenberg <microdan@gmail.com>
Date: Tue, 30 Aug 2005 18:53:23 +0000
Subject: [PATCH] getting rid of seq-stupid-all

---
 contrib/algebra/parse-k.factor | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/contrib/algebra/parse-k.factor b/contrib/algebra/parse-k.factor
index a2758211f5..ead8d47519 100644
--- a/contrib/algebra/parse-k.factor
+++ b/contrib/algebra/parse-k.factor
@@ -181,9 +181,6 @@ UNION: comp-literal number general-list ;
 M: comp-literal compile-ast ! literal numbers
     replace-with nip ;
 
-: seq-stupid-all? ( seq pred -- ? )
-    t -rot [ call and ] cons each ; inline
-
 : accumulator ( vars { asts } quot -- quot )
     -rot [
         [
@@ -194,7 +191,7 @@ M: comp-literal compile-ast ! literal numbers
     ] make-list nip ;
 
 M: vector compile-ast ! literal vectors
-    dup [ number? ] seq-stupid-all? [
+    dup [ number? ] all? [
         replace-with nip
     ] [
         [ , ] accumulator [ make-vector nip ] cons