Make &infix:<⇒> a first class citizen

rakudo · Aug 20, 2023 · 1878651 · 1878651
1 parent 37aa054
commit 1878651
Show file tree

Hide file tree

Showing 8 changed files with 10 additions and 0 deletions.
diff --git 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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -312,6 +312,7 @@ my %allowed = (
     Q{&infix:«<=»},
     Q{&infix:«<»},
     Q{&infix:«=>»},
+    Q{&infix:<⇒>},
     Q{&infix:«>=»},
     Q{&infix:«>»},
     Q{&infix:«~<»},