From bb92e43a43f00ad9a7730c7c7e4adf46615714da Mon Sep 17 00:00:00 2001
From: erg <erg@trifocus.net>
Date: Thu, 14 Dec 2006 09:06:27 +0000
Subject: [PATCH] remove an unused word in random-tester

---
 apps/random-tester/type.factor | 23 -----------------------
 1 file changed, 23 deletions(-)

diff --git a/apps/random-tester/type.factor b/apps/random-tester/type.factor
index 3cc93ec9c5..4e319fd1ea 100644
--- a/apps/random-tester/type.factor
+++ b/apps/random-tester/type.factor
@@ -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 ;