From fe0c2f6ca26df8f51a476c858f4e30f68cdbec83 Mon Sep 17 00:00:00 2001
From: erg <erg@trifocus.net>
Date: Tue, 5 Dec 2006 16:34:11 +0000
Subject: [PATCH] remove more bad words from random-tester

---
 apps/random-tester/random-tester2.factor | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/apps/random-tester/random-tester2.factor b/apps/random-tester/random-tester2.factor
index fafa911bdc..83abf0124a 100644
--- a/apps/random-tester/random-tester2.factor
+++ b/apps/random-tester/random-tester2.factor
@@ -81,14 +81,16 @@ SYMBOL: wordbank
         gensym random-int counter <byte-array>
         <word> <client-stream> <server> <client>
         <duplex-stream>
-        <file-writer> <file-reader>
-        init-namespaces unxref-word set-global
+        <file-writer> <file-reader> <file-r/w>
+        init-namespaces unxref-word set-global set off on
+        nest
         set-restart-obj
         +@ inc dec
 
         ! 0.0 5000000 condition
         condition
         
+        changed-words
         callstack namespace namestack global vocabularies
 
         file. (file.) path+ parent-dir
@@ -98,7 +100,7 @@ SYMBOL: wordbank
     }
     { "arrays" "errors" "generic" "graphs" "hashtables" "io"
     "kernel" "math" "namespaces"
-    "queues" "strings" "sequences" "words" "vectors" "words" }
+    "queues" "strings" "sequences" "vectors" "words" }
     [ words ] map concat diff ;
 
 w1 wordbank set-global