Update handling of srand -> seed change

Author: ScottPJones

test/cformat.jl

@@ -1,9 +1,11 @@
 _erfinv(z) = sqrt(π) * Base.Math.@horner(z, 0, 1, 0, π/12, 0, 7π^2/480, 0, 127π^3/40320, 0,
                                          4369π^4/5806080, 0, 34807π^5/182476800) / 2
 
+set_seed!(seed) = @static V6_COMPAT ? srand(seed) : Random.seed!(seed)
+
 function test_equality()
     println( "test cformat equality...")
-    Random.seed!(10)
+    set_seed!(10)
     fmts = [ (x->@sprintf("%10.4f",x), "%10.4f"),
              (x->@sprintf("%f", x),    "%f"),
              (x->@sprintf("%e", x),    "%e"),
@@ -63,20 +65,20 @@ println( "integer sprintf speed, bypass repeated lookup")
 @time runtime_int_bypass()
 
 function native_float()
-    Random.seed!( 10 )
+    set_seed!( 10 )
     for i in 1:200000
         @sprintf( "%10.4f", _erfinv( rand() ) )
     end
 end
 function runtime_float()
-    Random.seed!( 10 )
+    set_seed!( 10 )
     for i in 1:200000
         cfmt( "%10.4f", _erfinv( rand() ) )
     end
 end
 function runtime_float_bypass()
     f = generate_formatter( "%10.4f" )
-    Random.seed!( 10 )
+    set_seed!( 10 )
     for i in 1:200000
         f( _erfinv( rand() ) )
     end