Mercurial > urweb
comparison src/sql.sml @ 2235:0aae15c2a05a
Refactored a lot and fixed an and/or swap, but still not good on current test.
author | Ziv Scully <ziv@mit.edu> |
---|---|
date | Mon, 29 Jun 2015 01:33:47 -0700 |
parents | 70ec9bb337be |
children | 7f92d70a326e |
comparison
equal
deleted
inserted
replaced
2234:2f7ed04332a0 | 2235:0aae15c2a05a |
---|---|
212 cmp "<>" Ne, | 212 cmp "<>" Ne, |
213 cmp "<=" Le, | 213 cmp "<=" Le, |
214 cmp "<" Lt, | 214 cmp "<" Lt, |
215 cmp ">=" Ge, | 215 cmp ">=" Ge, |
216 cmp ">" Gt, | 216 cmp ">" Gt, |
217 wrap (const "AND") (fn () => RLop Or), | 217 wrap (const "AND") (fn () => RLop And), |
218 wrap (const "OR") (fn () => RLop And)] | 218 wrap (const "OR") (fn () => RLop Or)] |
219 | 219 |
220 datatype ('a, 'b) sum = inl of 'a | inr of 'b | 220 datatype ('a, 'b) sum = inl of 'a | inr of 'b |
221 | 221 |
222 fun string chs = | 222 fun string chs = |
223 case chs of | 223 case chs of |