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
bac4d8d1
Commit
bac4d8d1
authored
Mar 26, 2010
by
Andrei Paskevich
Browse files
remove print_theorynotfound from Env. Why was it there?
parent
b6867842
Changes
3
Hide whitespace changes
Inline
Side-by-side
src/core/env.ml
View file @
bac4d8d1
...
...
@@ -63,5 +63,3 @@ let find_theory env sl s =
let
env_tag
env
=
env
.
env_tag
let
print_theorynotfound
fmt
(
l
,
s
)
=
Format
.
fprintf
fmt
"%s.%s"
(
String
.
concat
"."
l
)
s
src/core/env.mli
View file @
bac4d8d1
...
...
@@ -34,4 +34,3 @@ val env_tag : env -> int
exception
TheoryNotFound
of
string
list
*
string
val
print_theorynotfound
:
Format
.
formatter
->
string
list
*
string
->
unit
src/driver/driver.ml
View file @
bac4d8d1
...
...
@@ -227,8 +227,9 @@ let load_rules env driver {thr_name = loc,qualid; thr_rules = trl} =
let
id
,
qfile
=
qualid_to_slist
qualid
in
let
th
=
try
find_theory
env
qfile
id
with
Env
.
TheoryNotFound
(
l
,
s
)
->
errorm
~
loc
"theory %a not found"
Env
.
print_theorynotfound
(
l
,
s
)
in
with
Env
.
TheoryNotFound
(
l
,
s
)
->
errorm
~
loc
"theory %s.%s not found"
(
String
.
concat
"."
l
)
s
in
let
add_htheory
cloned
id
t
=
try
let
t2
,
t3
=
Hid
.
find
driver
.
drv_theory
id
in
...
...
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