From 4ad2ce0968dece97c27686a1aafd59031ebe5622 Mon Sep 17 00:00:00 2001
From: erg <erg@trifocus.net>
Date: Wed, 20 Dec 2006 17:35:25 +0000
Subject: [PATCH] remove some words from random-tester2

---
 apps/random-tester/random-tester2.factor | 8 ++++----
 apps/random-tester/type.factor           | 2 +-
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/apps/random-tester/random-tester2.factor b/apps/random-tester/random-tester2.factor
index 23323fd629..63f4962c6a 100644
--- a/apps/random-tester/random-tester2.factor
+++ b/apps/random-tester/random-tester2.factor
@@ -14,7 +14,7 @@ SYMBOL: wordbank
 
         times repeat (repeat)
         supremum infimum assoc rassoc norm-sq
-        product sum curry remove-all member?
+        product sum curry remove-all member? subseq?
 
         (next-power-of-2) (^) d>w/w w>h/h millis
         (random-int) ^n integer, first-bignum
@@ -60,7 +60,7 @@ SYMBOL: wordbank
         close readln (readln) read1 read with-server
         stream-read stream-readln stream-read1 lines (lines)
         contents stream-copy stream-flush
-        stream-write log-stream stream-format set-line-reader-cr
+        stream-format set-line-reader-cr
 
         double>bits float>bits >bignum
 
@@ -71,7 +71,7 @@ SYMBOL: wordbank
 
         gensym random-int counter <byte-array>
         <word> <client-stream> <server> <client>
-        <duplex-stream> <file-writer> <file-reader> <file-r/w>
+        <duplex-stream> <file-writer> <file-reader> ! <file-r/w>
         init-namespaces unxref-word set-global set off on
         nest
         set-restart-obj
@@ -80,7 +80,7 @@ SYMBOL: wordbank
         changed-words
         callstack namespace namestack global vocabularies
 
-        file. (file.) path+ parent-dir directory.
+        path+ parent-dir
 
         .s . word-xt.
 
diff --git a/apps/random-tester/type.factor b/apps/random-tester/type.factor
index d3dcba5b43..b1cbae7c64 100644
--- a/apps/random-tester/type.factor
+++ b/apps/random-tester/type.factor
@@ -24,7 +24,7 @@ TUPLE: inert-object ;
         ""
         SBUF" "
         [ ]
-        DLL" libm.dylib"
+        ! DLL" libm.dylib"
         ALIEN: 1
         T{ inert-object f }
     } ;