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
5e277d96
Commit
5e277d96
authored
Mar 17, 2010
by
Andrei Paskevich
Browse files
fix a minor inefficiency in split_theory
parent
2214aa5f
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/core/task.ml
View file @
5e277d96
...
...
@@ -235,8 +235,9 @@ let rec use_export names acc td =
end
let
split_theory
th
names
=
let
acc
=
Sid
.
empty
,
empty_clone
,
[]
,
of_option
init_task
in
let
_
,
_
,
res
,
_
=
List
.
fold_left
(
use_export
names
)
acc
th
.
th_decls
in
let
use
=
Sid
.
add
builtin_theory
.
th_name
Sid
.
empty
in
let
acc
=
use
,
empty_clone
,
[]
,
of_option
init_task
in
let
_
,_,
res
,_
=
List
.
fold_left
(
use_export
names
)
acc
th
.
th_decls
in
res
(* Generic utilities *)
...
...
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