getting rid of seq-stupid-all

diff --git a/contrib/algebra/parse-k.factor b/contrib/algebra/parse-k.factor
index a2758211f5bbe8521b4fb7a32ce11449cb2b743a..ead8d47519e22931bb28f5f0c30d1c723feebd8c 100644 (file)
--- 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