X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fmathql_interpreter%2FmQueryUtil.ml;h=6323cc95037e4a0f6ff1e645725e3a74a409cd11;hb=a877debee863033e33a0f7d497e253ad3b076477;hp=4484c486b181e89d9c734be408f1f67f7f80b1d4;hpb=caf8d6cf32c9a9ec8d3fba0aa912d080ff5f7d52;p=helm.git

diff --git a/helm/ocaml/mathql_interpreter/mQueryUtil.ml b/helm/ocaml/mathql_interpreter/mQueryUtil.ml
index 4484c486b..6323cc950 100644
--- a/helm/ocaml/mathql_interpreter/mQueryUtil.ml
+++ b/helm/ocaml/mathql_interpreter/mQueryUtil.ml
@@ -26,6 +26,8 @@
 (*  AUTOR: Ferruccio Guidi <fguidi@cs.unibo.it>
  *)
 
+(* $Id$ *)
+
 (* text linearization and parsing *******************************************)
 
 let rec txt_list out f s = function
@@ -37,7 +39,7 @@ let txt_str out s = out ("\"" ^ s ^ "\"")
 
 let txt_path out p = out "/"; txt_list out (txt_str out) "/" p 
 
-let text_of_query out x sep =
+let text_of_query out sep x =
    let module M = MathQL in 
    let txt_path_list l = txt_list out (txt_path out) ", " l in 
    let txt_svar sv = out ("%" ^ sv) in 
@@ -155,7 +157,7 @@ let text_of_query out x sep =
    in 
    txt_set x; out sep
 
-let text_of_result out x sep = 
+let text_of_result out sep x = 
    let txt_attr = function
       | (p, []) -> txt_path out p
       | (p, l)  -> txt_path out p; out " = "; txt_list out (txt_str out) ", " l