From 187865144b97569cd6e93e45499e1ccf34dd315f Mon Sep 17 00:00:00 2001
From: Elizabeth Mattijsen <liz@raku.rocks>
Date: Sun, 20 Aug 2023 15:18:47 +0200
Subject: [PATCH] =?UTF-8?q?Make=20=20&infix:<=E2=87=92>=20a=20first=20clas?=
 =?UTF-8?q?s=20citizen?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 src/Perl6/Grammar.nqp           | 1 +
 src/core.c/Pair.pm6             | 3 +++
 t/02-rakudo/03-corekeys-6c.t    | 1 +
 t/02-rakudo/03-corekeys-6d.t    | 1 +
 t/02-rakudo/03-corekeys-6e.t    | 1 +
 t/02-rakudo/03-corekeys.t       | 1 +
 t/02-rakudo/04-settingkeys-6c.t | 1 +
 t/02-rakudo/04-settingkeys-6e.t | 1 +
 8 files changed, 10 insertions(+)

diff --git a/src/Perl6/Grammar.nqp b/src/Perl6/Grammar.nqp
index 7bc460c5ee3..1be21f5b73a 100644
--- a/src/Perl6/Grammar.nqp
+++ b/src/Perl6/Grammar.nqp
@@ -4334,6 +4334,7 @@ grammar Perl6::Grammar is HLL::Grammar does STD {
     }
 
     token infix:sym«=>» { <sym> <O(|%item_assignment)> }
+    token infix:sym<⇒>  { <sym> <O(|%item_assignment)> }
 
     token prefix:sym<so> { <sym><.end_prefix> <O(|%loose_unary)> }
     token prefix:sym<not>  { <sym><.end_prefix> <O(|%loose_unary)> }
diff --git a/src/core.c/Pair.pm6 b/src/core.c/Pair.pm6
index f546fb7fdb5..7196bc0b9e9 100644
--- a/src/core.c/Pair.pm6
+++ b/src/core.c/Pair.pm6
@@ -207,6 +207,9 @@ multi sub infix:<cmp>(Pair:D $a, Pair:D $b) {
 proto sub infix:«=>»(Mu, Mu, *%) is pure {*}
 multi sub infix:«=>»(Mu $key, Mu \value) { Pair.new($key, value) }
 
+# 21D2 RIGHTWARDS DOUBLE ARROW ⇒
+my constant &infix:<⇒> := &infix:«=>»;
+
 proto sub pair(Mu, Mu, *%) is pure {*}
 multi sub pair(Mu \key, Mu \value) { Pair.new(key, value) }
 
diff --git a/t/02-rakudo/03-corekeys-6c.t b/t/02-rakudo/03-corekeys-6c.t
index bde390a9da8..8ed8a416639 100644
--- a/t/02-rakudo/03-corekeys-6c.t
+++ b/t/02-rakudo/03-corekeys-6c.t
@@ -313,6 +313,7 @@ my @expected = (
   Q{&infix:«<=»},
   Q{&infix:«<»},
   Q{&infix:«=>»},
+  Q{&infix:<⇒>},
   Q{&infix:«>=»},
   Q{&infix:«>»},
   Q{&infix:«~<»},
diff --git a/t/02-rakudo/03-corekeys-6d.t b/t/02-rakudo/03-corekeys-6d.t
index c4ee0588281..d31fd4f8fdb 100644
--- a/t/02-rakudo/03-corekeys-6d.t
+++ b/t/02-rakudo/03-corekeys-6d.t
@@ -313,6 +313,7 @@ my @expected = (
     Q{&infix:«<=»},
     Q{&infix:«<»},
     Q{&infix:«=>»},
+    Q{&infix:<⇒>},
     Q{&infix:«>=»},
     Q{&infix:«>»},
     Q{&infix:«~<»},
diff --git a/t/02-rakudo/03-corekeys-6e.t b/t/02-rakudo/03-corekeys-6e.t
index 71a71940afd..bde8d444d69 100644
--- a/t/02-rakudo/03-corekeys-6e.t
+++ b/t/02-rakudo/03-corekeys-6e.t
@@ -315,6 +315,7 @@ my @expected = (
     Q{&infix:«<=»},
     Q{&infix:«<»},
     Q{&infix:«=>»},
+    Q{&infix:<⇒>},
     Q{&infix:«>=»},
     Q{&infix:«>»},
     Q{&infix:«~<»},
diff --git a/t/02-rakudo/03-corekeys.t b/t/02-rakudo/03-corekeys.t
index df76c77eb88..8954f5dcb0f 100644
--- a/t/02-rakudo/03-corekeys.t
+++ b/t/02-rakudo/03-corekeys.t
@@ -316,6 +316,7 @@ my @allowed =
       Q{&infix:«<=»},
       Q{&infix:«<»},
       Q{&infix:«=>»},
+      Q{&infix:<⇒>},
       Q{&infix:«>=»},
       Q{&infix:«>»},
       Q{&infix:«~<»},
diff --git a/t/02-rakudo/04-settingkeys-6c.t b/t/02-rakudo/04-settingkeys-6c.t
index 9836e99b2dc..05ffe65e6aa 100644
--- a/t/02-rakudo/04-settingkeys-6c.t
+++ b/t/02-rakudo/04-settingkeys-6c.t
@@ -312,6 +312,7 @@ my %allowed = (
     Q{&infix:«<=»},
     Q{&infix:«<»},
     Q{&infix:«=>»},
+    Q{&infix:<⇒>},
     Q{&infix:«>=»},
     Q{&infix:«>»},
     Q{&infix:«~<»},
diff --git a/t/02-rakudo/04-settingkeys-6e.t b/t/02-rakudo/04-settingkeys-6e.t
index fa4e8c7796f..717b1c9c7c2 100644
--- a/t/02-rakudo/04-settingkeys-6e.t
+++ b/t/02-rakudo/04-settingkeys-6e.t
@@ -312,6 +312,7 @@ my %allowed = (
     Q{&infix:«<=»},
     Q{&infix:«<»},
     Q{&infix:«=>»},
+    Q{&infix:<⇒>},
     Q{&infix:«>=»},
     Q{&infix:«>»},
     Q{&infix:«~<»},