remove some words from random-tester2

darcs
erg 2006-12-20 17:35:25 +00:00
parent 7f75944459
commit 4ad2ce0968
2 changed files with 5 additions and 5 deletions

View File

@ -14,7 +14,7 @@ SYMBOL: wordbank
times repeat (repeat) times repeat (repeat)
supremum infimum assoc rassoc norm-sq 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 (next-power-of-2) (^) d>w/w w>h/h millis
(random-int) ^n integer, first-bignum (random-int) ^n integer, first-bignum
@ -60,7 +60,7 @@ SYMBOL: wordbank
close readln (readln) read1 read with-server close readln (readln) read1 read with-server
stream-read stream-readln stream-read1 lines (lines) stream-read stream-readln stream-read1 lines (lines)
contents stream-copy stream-flush 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 double>bits float>bits >bignum
@ -71,7 +71,7 @@ SYMBOL: wordbank
gensym random-int counter <byte-array> gensym random-int counter <byte-array>
<word> <client-stream> <server> <client> <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 init-namespaces unxref-word set-global set off on
nest nest
set-restart-obj set-restart-obj
@ -80,7 +80,7 @@ SYMBOL: wordbank
changed-words changed-words
callstack namespace namestack global vocabularies callstack namespace namestack global vocabularies
file. (file.) path+ parent-dir directory. path+ parent-dir
.s . word-xt. .s . word-xt.

View File

@ -24,7 +24,7 @@ TUPLE: inert-object ;
"" ""
SBUF" " SBUF" "
[ ] [ ]
DLL" libm.dylib" ! DLL" libm.dylib"
ALIEN: 1 ALIEN: 1
T{ inert-object f } T{ inert-object f }
} ; } ;