From 73f7929d505eca6c452115264982d673eb65aa1f Mon Sep 17 00:00:00 2001
From: Jonathan Worthington <jnthn@jnthn.net>
Date: Sat, 6 Feb 2010 18:46:21 +0100
Subject: [PATCH] Implement infix => operator for pair construction.

---
 src/Perl6/Grammar.pm  | 2 ++
 src/core/operators.pm | 4 ++++
 2 files changed, 6 insertions(+)

diff --git a/src/Perl6/Grammar.pm b/src/Perl6/Grammar.pm
index 7beed6c5503..316ea9be995 100644
--- a/src/Perl6/Grammar.pm
+++ b/src/Perl6/Grammar.pm
@@ -1073,6 +1073,8 @@ token infix:sym<.=> { <sym> <O('%item_assignment, :nextterm<dottyopish>')> }
 
 token infix_postfix_meta_operator:sym<=> { '=' <O('%item_assignment')> }
 
+token infix:sym«=>» { <sym> <O('%item_assignment')> }
+
 token prefix:sym<so> { <sym> >> <O('%loose_unary')> }
 token prefix:sym<not>  { <sym> >> <O('%loose_unary')> }
 
diff --git a/src/core/operators.pm b/src/core/operators.pm
index 3fc2a238337..9dcc88d3a58 100644
--- a/src/core/operators.pm
+++ b/src/core/operators.pm
@@ -122,3 +122,7 @@ our multi infix:<min>(*@args) {
 our multi infix:<max>(*@args) {
     @args.max;
 }
+
+our multi infix:«=>»($key, $value) {
+    Pair.new(key => $key, value => $value);
+}