Permalink
Browse files

Job: 7045

Everyone except us was using inline for gen_random...
  • Loading branch information...
1 parent 6709f9d commit 7ef1228ddeff72951f6f77487827791c154781a0 @brucehoult brucehoult committed Oct 26, 2005
Showing with 1 addition and 1 deletion.
  1. +1 −1 random.dylan
View
@@ -9,7 +9,7 @@ define constant $IA = 3877;
define constant $IC = 29573;
define variable $LAST :: <integer> = 42;
-define method generate-random (max :: <double-float>) => (m :: <double-float>);
+define inline method generate-random (max :: <double-float>) => (m :: <double-float>);
$LAST := modulo($LAST * $IA + $IC, $IM);
max * $LAST / $IM;
end method;

0 comments on commit 7ef1228

Please sign in to comment.