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