From aa2da68f6bfc3649fcb43afa1b88909ef278ac60 Mon Sep 17 00:00:00 2001
From: Ziv Scully <ziv@mit.edu>
Date: Mon, 29 Jun 2015 01:33:47 -0700
Subject: Refactored a lot and fixed an and/or swap, but still not good on
 current test.

---
 src/sql.sml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/sql.sml')

diff --git a/src/sql.sml b/src/sql.sml
index 59b4eac6..22ffea39 100644
--- a/src/sql.sml
+++ b/src/sql.sml
@@ -214,8 +214,8 @@ val sqbrel = altL [cmp "=" Eq,
                    cmp "<" Lt,
                    cmp ">=" Ge,
                    cmp ">" Gt,
-                   wrap (const "AND") (fn () => RLop Or),
-                   wrap (const "OR") (fn () => RLop And)]
+                   wrap (const "AND") (fn () => RLop And),
+                   wrap (const "OR") (fn () => RLop Or)]
 
 datatype ('a, 'b) sum = inl of 'a | inr of 'b
 
-- 
cgit v1.2.3