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
b9abeaea
Commit
b9abeaea
authored
Jun 22, 2014
by
Julien Lopez
Browse files
[MINOR] Don't print sigmas for user
parent
fd3c42d6
Changes
1
Hide whitespace changes
Inline
Side-by-side
runtime/value.ml
View file @
b9abeaea
...
...
@@ -363,9 +363,9 @@ let rec print ppf v =
Format
.
fprintf
ppf
"
\"
"
)
else
if
is_seq
v
then
Format
.
fprintf
ppf
"[ @[<hv>%a@]]"
pp_seq
v
else
match
v
with
|
Pair
(
x
,
y
,
sigma
)
->
Format
.
fprintf
ppf
"(%a,%a
,%a
)"
print
x
print
y
Print
.
pp_sigma
sigma
|
Pair
(
x
,
y
,
_
)
->
Format
.
fprintf
ppf
"(%a,%a)"
print
x
print
y
|
Xml
(
x
,
y
,
z
,
sigma
)
|
XmlNs
(
x
,
y
,
z
,_,
sigma
)
->
pp_xml
ppf
x
y
z
(* sigma *)
|
Record
(
l
,
sigma
)
->
Format
.
fprintf
ppf
"@[{%a }
,%a
@]"
pp_record
(
Imap
.
elements
l
)
Print
.
pp_sigma
sigma
|
Record
(
l
,
_
)
->
Format
.
fprintf
ppf
"@[{%a }@]"
pp_record
(
Imap
.
elements
l
)
|
Atom
a
->
Atoms
.
V
.
print
ppf
a
|
Integer
i
->
Intervals
.
V
.
print
ppf
i
|
Char
c
->
Chars
.
V
.
print
ppf
c
...
...
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