not-like sugar

This commit is contained in:
Justin Kramer 2012-08-18 15:41:51 -04:00
parent df77e861a3
commit 73da451ab3

View file

@ -29,14 +29,15 @@
(def infix-fns (def infix-fns
#{"+" "-" "*" "/" "%" "mod" "|" "&" "^" #{"+" "-" "*" "/" "%" "mod" "|" "&" "^"
"and" "or" "xor" "and" "or" "xor"
"in" "not in" "like" "regexp"}) "in" "not in" "like" "not like" "regexp"})
(def fn-aliases (def fn-aliases
{"is" "=" {"is" "="
"is-not" "<>" "is-not" "<>"
"not=" "<>" "not=" "<>"
"!=" "<>" "!=" "<>"
"not-in" "not in"}) "not-in" "not in"
"not-like" "not like"})
(declare to-sql format-predicate*) (declare to-sql format-predicate*)