]> gitweb.factorcode.org Git - factor.git/commitdiff
fix typo in fooify-test
authorerg <erg@trifocus.net>
Thu, 14 Dec 2006 19:38:48 +0000 (19:38 +0000)
committererg <erg@trifocus.net>
Thu, 14 Dec 2006 19:38:48 +0000 (19:38 +0000)
apps/random-tester/random-tester2.factor

index ee745a57d8a311d215b40dde77ecf6ee11c2c252..23323fd629beee6a881458ca6b3bf032545f7ba0 100644 (file)
@@ -103,8 +103,7 @@ w1 wordbank set-global
 : databank
     {
         ! V{ } H{ } V{ 3 } { 3 } { } "" "asdf"
-        pi
-        1/0. -1/0. 0/0. [ ]
+        pi 1/0. -1/0. 0/0. [ ]
         f t "" 0 0.0 3.14 2 -3 -7 20 3/4 -3/4 1.2/3 3.5
         C{ 2 2 } C{ 1/0. 1/0. }
     } ;
@@ -149,6 +148,7 @@ err off
 : run-random-tester2
     100000000000000 [ 6 3 random-test ] times ;
 
+
 ! A worthwhile test that has not been run extensively
 1000 [ drop gensym ] map "syms" set
 
@@ -159,5 +159,5 @@ err off
     2000 random-int >quotation
     over set-word-def
     100 random-int zero? [ code-gc ] when
-    compile fooify ;
+    compile fooify-test ;