Make sure calling .rand on a Complex number doesn't cause an infinite…

… recursion.
rakudo · Jul 16, 2010 · c513fbd · c513fbd
1 parent 9dae675
commit c513fbd
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 1 deletion.
diff --git a/src/core/Numeric.pm b/src/core/Numeric.pm
@@ -132,6 +132,10 @@ role Numeric {
         fail "unpolar is only defined for Reals, you have a $.WHAT()";
     }
 
+    method rand(Numeric $x:) {
+        $x.Real.rand;
+    }
+
     method sin(Numeric $x: $base = Radians) {
         note "$.WHAT() needs a version of .sin";
         fail "$.WHAT() needs a version of .sin";
@@ -296,3 +300,7 @@ multi sub infix:«<=»(Numeric $a, Numeric $b) {
 multi sub infix:«>=»(Numeric $a, Numeric $b) {
     ($a <=> $b) != -1;
 }
+
+multi sub srand(Numeric $seed) {
+    srand($seed.Real);
+}
diff --git a/src/core/Real.pm b/src/core/Real.pm
@@ -96,7 +96,7 @@ role Real does Numeric {
                     $mag * $angle.sin(Radians));
     }
 
-    method rand($x:) {
+    method rand(Real $x:) {
         $x.Bridge.rand;
     }