remove some words from random-tester2

diff --git a/apps/random-tester/random-tester2.factor b/apps/random-tester/random-tester2.factor
index 23323fd629beee6a881458ca6b3bf032545f7ba0..63f4962c6a02c7aadc45613b83488a1b2b4e0e76 100644 (file)
--- 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 d3dcba5b43a6d2fa610ae3eb610692b99d56612c..b1cbae7c649fcac9c62ef87adb158716174e51ee 100644 (file)
--- 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 }
     } ;