[r2004-04-14 17:13:19 by cmiachon] bug corrige sur /@

Original author: cmiachon
Date: 2004-04-14 17:13:19+00:00

query/query_parse.ml

@@ -49,8 +49,8 @@ EXTEND
         let tag = mk loc (Internal(Types.atom Atoms.any)) in
         let any = mk loc (Internal(Types.any)) in
         let att = mk loc (Record(true,[(label a,mk loc (PatVar(U.mk "$$$")))]))in
-        let ct= mk loc (Regexp(Elem any , any)) in 
-        let p = mk loc(XmlT (tag,multi_prod loc[att;ct])) in
+        (*let ct= mk loc (Regexp(Elem any , any)) in *)
+        let p = mk loc(XmlT (tag,multi_prod loc[att;any])) in
         let t =(p, Pair(Var (Id.value id_dummy),cst_nil)) 
         in exp loc (Transform (e,[t]))
      | e = expr; "//" ; p = pat -> (* projections sur tous les descendants *)