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
9577acb9
Commit
9577acb9
authored
Jul 13, 2012
by
Andrei Paskevich
Browse files
let whyml-exp use the old session files
parent
96a33ff8
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/session/session.ml
View file @
9577acb9
...
...
@@ -1690,7 +1690,11 @@ let merge_file ~keygen env ~allow_obsolete from_f to_f =
(
fun
to_th
->
try
let
from_th
=
Util
.
Mstr
.
find
to_th
.
theory_name
.
Ident
.
id_string
from_theories
in
let
name
=
to_th
.
theory_name
.
Ident
.
id_string
in
try
Util
.
Mstr
.
find
name
from_theories
(* TODO: remove this later when all sessions are updated *)
with
Not_found
->
Util
.
Mstr
.
find
(
"WP "
^
name
)
from_theories
in
merge_theory
~
keygen
env
~
allow_obsolete
from_th
to_th
with
|
Not_found
when
allow_obsolete
->
true
...
...
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