Commit ef25acc9 authored by Pietro Abate's avatar Pietro Abate
Browse files

[r2003-11-27 10:47:33 by afrisch] Eviter d'avoir false et true comme keyword

Original author: afrisch
Date: 2003-11-27 10:47:33+00:00
parent 664dc87a
......@@ -45,10 +45,14 @@ EXTEND
] ];
cond:
[
["`";"true" -> Query.True
|"`";"false" -> Query.False
| a = expr -> Query.Varb(a)
[ [ a = expr ->
(match a with
| LocatedExpr(_, Atom at) ->
(match U.get_str at with
| "true" -> Query.True
| "false" -> Query.False
| _ -> Query.Varb a)
| _ -> Query.Varb a)
|"not"; a = cond -> Query.Not(a)
| a = cond ; "or" ; b = cond -> Query.Ou(a,b)
| a = cond ; "and" ; b = cond -> Query.Et(a,b)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment