Add infix:<minmax> operator -- resolves RT #66640.

rakudo · Jun 30, 2009 · a4978b9 · a4978b9
1 parent 7032827
commit a4978b9
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 7 deletions.
diff --git a/src/parser/grammar-oper.pg b/src/parser/grammar-oper.pg
@@ -162,17 +162,13 @@ proto infix:«p5=>» is equiv(infix:<,>) is subname('infix:,') { ... }
 proto infix:<X> is precedence('f=')
     is assoc('list')
    { ... }
-# needs to come before the others because of missing LTM
-proto infix:<...> is equiv(infix:<X>)
-    is assoc('list')
-    { ... }
+proto infix:<Z> is equiv(infix:<X>) { ... }
+proto infix:<...> is equiv(infix:<X>) { ... }
+proto infix:<minmax> is equiv(infix:<X>) { ... }
 proto infix:<X,X> is equiv(infix:<X>)
     is assoc('list')
     is subname('infix:X')
     { ... }
-proto infix:<Z> is equiv(infix:<X>)
-    is assoc('list')
-    { ... }
 
 ## list assignment
 proto infix:<=> is precedence('e=')

diff --git a/src/setting/Operators.pm b/src/setting/Operators.pm
@@ -44,4 +44,8 @@ multi sub infix:<eqv> ($a, $b) {
     die "infix:<eqv> is only implemented for certain special cases yet";
 }
 
+multi sub infix:<minmax>(@a, @b) {
+    (@a[0] min @b[0], @a[1] max @b[1]);
+}
+
 # vim: ft=perl6