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

[r2005-03-16 16:40:30 by cmiachon] bug corrected : (select e from ...) =>...

[r2005-03-16 16:40:30 by cmiachon] bug corrected : (select e from ...) => (transform ... -> [e]) instead
of e

Original author: cmiachon
Date: 2005-03-16 16:40:30+00:00
parent db932d00
......@@ -1392,7 +1392,7 @@ and select_from_where env loc e from where =
let br_loc = merge_loc ploc e.Typed.exp_loc in
(above,exp' br_loc (Typed.Transform (e, b)))
in
let (fv,e) = expr !env noloc e in
let (fv,e) = expr !env noloc (Pair(e,cst_nil)) in
let (where,rest) = List.fold_right aux from (where,e) in
(* The remaining conditions are constant. Gives a warning for that. *)
(match where with
......
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