Commit 93aa81c2 authored by Pietro Abate's avatar Pietro Abate
Browse files

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

Original author: afrisch
Date: 2005-05-04 15:21:17+00:00
parent bec64955
......@@ -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
......
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