From fe0c2f6ca26df8f51a476c858f4e30f68cdbec83 Mon Sep 17 00:00:00 2001 From: erg 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 - - init-namespaces unxref-word set-global + + 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