[r2005-05-04 15:21:17 by afrisch] Empty log message

Original author: afrisch
Date: 2005-05-04 15:21:17+00:00

runtime/value.ml

@@ -772,7 +772,7 @@ let mk_record labels fields =
      - all chars copied or deleted *)
 
 let rec transform_aux f accu = function
-  | Pair (x,y) -> let accu = Concat (accu, f x) in transform_aux f accu y
+  | Pair (x,y) -> let accu = concat accu (f x) in transform_aux f accu y
   | Atom _ -> accu
   | v -> transform_aux f accu (normalize v)
 
@@ -791,8 +791,8 @@ let rec xtransform_aux f accu = function
 		  let child = xtransform_aux f nil child in
 		  XmlNs (tag, attr, child, ns)
 	      | x -> x in
-	    Concat (accu, Pair (x,nil))
-	| x -> Concat (accu, x) 
+	    concat accu (Pair (x,nil))
+	| x -> concat accu x
       in 
       xtransform_aux f accu y
   | Atom _ -> accu