remove an unused word in random-tester

erg 2006-12-14 09:06:27 +00:00
parent 4780ef34b5
commit bb92e43a43
1 changed files with 0 additions and 23 deletions

View File

@ -51,29 +51,6 @@ TUPLE: inert-object ;
T{ inert-object f }
} ;
: make-inputs
[
0 ,
! ! -268435457 ,
\ inert ,
! ! T{ inert-object f } ,
-29/2 ,
-3.14 ,
C{ 1 -1 } ,
W{ 55 } clone ,
{ } clone ,
f ,
H{ } clone ,
V{ } clone ,
"" ,
SBUF" " clone ,
[ ] clone ,
DLL" libm.dylib" clone ,
ALIEN: 1 ,
T{ inert-object f } ,
] { } make ;
: word-inputs ( word -- seq )
[ stack-effect effect-in length ] [ drop 0 ] recover
inputs swap ;