From 22ac3ee80bc70b4804a42b2b3e4e952eff2bb334 Mon Sep 17 00:00:00 2001
From: Vitor Santos Costa <vsc@dcc.fc.up.pt>
Date: Thu, 23 Jul 2009 14:31:04 -0500
Subject: [PATCH] Use >< for xor (Paulo Mour, Iso meeting)

---
 C/arith2.c | 1 +
 C/init.c   | 1 +
 2 files changed, 2 insertions(+)

diff --git a/C/arith2.c b/C/arith2.c
index 6044b1ad1..2e99a3b21 100644
--- a/C/arith2.c
+++ b/C/arith2.c
@@ -1092,6 +1092,7 @@ static InitBinEntry InitBinTab[] = {
   {"/\\", op_and},
   {"\\/", op_or},
   {"#", op_xor},
+  {"><", op_xor},
   {"atan2", op_atan2},
   /* C-Prolog exponentiation */
   {"^", op_power},
diff --git a/C/init.c b/C/init.c
index 90ed89b83..a87f3091a 100644
--- a/C/init.c
+++ b/C/init.c
@@ -402,6 +402,7 @@ static Opdef    Ops[] = {
   {"-", yfx, 500},
   {"/\\", yfx, 500},
   {"\\/", yfx, 500},
+  {"><", yfx, 500},
   {"#", yfx, 500},
   {"+", fx, 200},
   {"-", fy, 200},