From 474db4cbc4a256848b50231d4cb4e35d534fbc74 Mon Sep 17 00:00:00 2001
From: TimToady <larry@wall.org>
Date: Fri, 27 Nov 2015 23:44:34 -0800
Subject: [PATCH] also compare ranges against lists wisely

---
 src/core/Range.pm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/core/Range.pm b/src/core/Range.pm
index 81e656411d9..0a218928830 100644
--- a/src/core/Range.pm
+++ b/src/core/Range.pm
@@ -552,4 +552,7 @@ multi sub infix:<cmp>(Range:D \a, Range:D \b) returns Order:D {
 multi sub infix:<cmp>(Num(Real) \a, Range:D \b) returns Order:D { (a..a) cmp b }
 multi sub infix:<cmp>(Range:D \a, Num(Real) \b) returns Order:D { a cmp (b..b) }
 
+multi sub infix:<cmp>(Positional \a, Range:D \b) returns Order:D { a cmp b.list }
+multi sub infix:<cmp>(Range:D \a, Positional \b) returns Order:D { a.list cmp b }
+
 # vim: ft=perl6 expandtab sw=4