Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
cduce
cduce
Commits
93aa81c2
Commit
93aa81c2
authored
Oct 05, 2007
by
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
Changes
1
Hide whitespace changes
Inline
Side-by-side
runtime/value.ml
View file @
93aa81c2
...
...
@@ -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
=
C
oncat
(
accu
,
f
x
)
in
transform_aux
f
accu
y
|
Pair
(
x
,
y
)
->
let
accu
=
c
oncat
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
C
oncat
(
accu
,
Pair
(
x
,
nil
))
|
x
->
C
oncat
(
accu
,
x
)
c
oncat
accu
(
Pair
(
x
,
nil
))
|
x
->
c
oncat
accu
x
in
xtransform_aux
f
accu
y
|
Atom
_
->
accu
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment