We need Real to support Inf/-Inf right now

rakudo · Apr 13, 2014 · 2a30681 · 2a30681
1 parent dca5394
commit 2a30681
Show file tree

Hide file tree

Showing 4 changed files with 10 additions and 10 deletions.
diff --git a/src/core/Bag.pm b/src/core/Bag.pm
@@ -1,12 +1,12 @@
 my class Bag does Baggy {
     has Int $!total;
-    has Num $!min;
-    has Num $!max;
+    has Real $!min;
+    has Real $!max;
     has $!WHICH;
 
     method total (--> Int) { $!total //= [+] self.values }
-    method min   (--> Num) { $!min //= self.values.min }
-    method max   (--> Num) { $!max //= self.values.max }
+    method min  (--> Real) { $!min //= self.values.min }
+    method max  (--> Real) { $!max //= self.values.max }
 
     submethod WHICH { $!WHICH }
     submethod BUILD (:%elems)  {

diff --git a/src/core/Baggy.pm b/src/core/Baggy.pm
@@ -8,8 +8,8 @@ my role Baggy does QuantHash {
     method kv { %!elems.values.map( {.key, .value} ) }
     method elems(--> Int) { %!elems.elems }
     method total(--> Int) { [+] self.values }
-    method min(--> Num) { self.values.min }
-    method max(--> Num) { self.values.max }
+    method min(--> Real) { self.values.min }
+    method max(--> Real) { self.values.max }
     method exists ($k --> Bool) {  # is DEPRECATED doesn't work in settings
         DEPRECATED("the :exists adverb");
         self.exists_key($k);

diff --git a/src/core/Set.pm b/src/core/Set.pm
@@ -5,8 +5,8 @@ my class Set does Setty {
     has $!WHICH;
 
     method total (--> Int) { $!total //= %!elems.elems }
-    method min (--> Num) { $!min //= %!elems.elems ?? 1 !!  Inf }
-    method max (--> Num) { $!max //= %!elems.elems ?? 1 !! -Inf }
+    method min (--> Real) { $!min //= %!elems.elems ?? 1 !!  Inf }
+    method max (--> Real) { $!max //= %!elems.elems ?? 1 !! -Inf }
     submethod WHICH {
         $!WHICH := self.^name ~ '|' ~ %!elems.keys.sort if !$!WHICH.defined;
         $!WHICH

diff --git a/src/core/Setty.pm b/src/core/Setty.pm
@@ -8,8 +8,8 @@ my role Setty does QuantHash {
     method kv { %!elems.values X, True }
     method elems(--> Int) { %!elems.elems }
     method total(--> Int) { %!elems.elems }
-    method min(--> Num) { %!elems.elems ?? 1 !!  Inf }
-    method max(--> Num) { %!elems.elems ?? 1 !! -Inf }
+    method min(--> Real) { %!elems.elems ?? 1 !!  Inf }
+    method max(--> Real) { %!elems.elems ?? 1 !! -Inf }
     method exists ($k --> Bool) {  # is DEPRECATED doesn't work in settings
         DEPRECATED("the :exists adverb");
         self.exists_key($k);