Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
Why3
why3
Commits
154bf347
Commit
154bf347
authored
Feb 05, 2018
by
MARCHE Claude
Browse files
fix issue
#86
parent
f6d1d6c1
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/core/pretty.ml
View file @
154bf347
...
@@ -241,7 +241,15 @@ and print_tnode pri fmt t = match t.t_node with
...
@@ -241,7 +241,15 @@ and print_tnode pri fmt t = match t.t_node with
|
Tvar
v
->
|
Tvar
v
->
print_vs
fmt
v
print_vs
fmt
v
|
Tconst
c
->
|
Tconst
c
->
Number
.
print_constant
fmt
c
begin
match
t
.
t_ty
with
|
Some
{
ty_node
=
Tyapp
(
ts
,
[]
)}
when
ts_equal
ts
ts_int
||
ts_equal
ts
ts_real
->
Number
.
print_constant
fmt
c
|
Some
ty
->
fprintf
fmt
"(%a:%a)"
Number
.
print_constant
c
print_ty
ty
|
None
->
assert
false
end
|
Tapp
(
fs
,
tl
)
when
is_fs_tuple
fs
->
|
Tapp
(
fs
,
tl
)
when
is_fs_tuple
fs
->
fprintf
fmt
"(%a)"
(
print_list
comma
print_term
)
tl
fprintf
fmt
"(%a)"
(
print_list
comma
print_term
)
tl
|
Tapp
(
fs
,
tl
)
when
unambig_fs
fs
->
|
Tapp
(
fs
,
tl
)
when
unambig_fs
fs
->
...
...
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