Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
Why3
why3
Commits
cb38a2bd
Commit
cb38a2bd
authored
Mar 23, 2013
by
Andrei Paskevich
Browse files
whyml: fixed a bug in cloning
parent
ebcdf083
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/whyml/mlw_module.ml
View file @
cb38a2bd
...
...
@@ -477,7 +477,7 @@ let clone_export uc m inst =
let
mvs
=
ref
(
Mvs
.
singleton
Mlw_wp
.
pv_old
.
pv_vs
Mlw_wp
.
pv_old
.
pv_vs
)
in
let
add_pdecl
uc
d
=
{
uc
with
muc_decls
=
d
::
uc
.
muc_decls
;
muc_known
=
known_add_decl
(
Theory
.
get_known
uc
.
muc_theory
)
uc
.
muc_known
d
;
muc_known
=
known_add_decl
(
Theory
.
get_known
nth
)
uc
.
muc_known
d
;
muc_local
=
Sid
.
union
uc
.
muc_local
d
.
pd_news
}
in
let
add_pd
uc
pd
=
match
pd
.
pd_node
with
|
PDtype
its
->
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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