fix #13 - orderby clauses were not being correctly freshened

links-lang · Nov 20, 2014 · cb0e214 · cb0e214
1 parent dfe62f9
commit cb0e214
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/query.ml b/query.ml
@@ -227,7 +227,7 @@ let rec freshen_for_bindings : Var.var Env.Int.t -> t -> t =
             ([], env)
             gs
         in
-          `For (List.rev gs', List.map ffb os, freshen_for_bindings env' b)
+          `For (List.rev gs', List.map (freshen_for_bindings env') os, freshen_for_bindings env' b)
       | `If (c, t, e) -> `If (ffb c, ffb t, ffb e)
       | `Table t -> `Table t
       | `Singleton v -> `Singleton (ffb v)