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
97f024c2
Commit
97f024c2
authored
Apr 11, 2018
by
MARCHE Claude
Browse files
naming tables: ensures that declarations are transversed bottom-up
parent
d18d24fb
Changes
2
Hide whitespace changes
Inline
Side-by-side
src/parser/parser.mly
View file @
97f024c2
...
...
@@ -1123,6 +1123,5 @@ qualid_comma_list_eof:
ident_comma_list_eof
:
|
comma_list1
(
ident
)
EOF
{
$
1
}
(* TODO: Weird to not have any parser conflicts here *)
term_comma_list_eof
:
|
comma_list1
(
term
)
EOF
{
$
1
}
src/transform/args_wrapper.ml
View file @
97f024c2
...
...
@@ -161,8 +161,9 @@ let build_naming_tables task : naming_table =
This only works for things defined in .why/.mlw because things
added by the user are renamed on the fly. *)
(* TODO:imported theories should be added in the namespace too *)
let
l
=
Mid
.
fold
(
fun
_id
d
acc
->
d
::
acc
)
km
[]
in
List
.
fold_left
(
fun
tables
d
->
add
d
tables
)
tables
l
Task
.
task_fold
(
fun
t
d
->
match
d
.
td_node
with
Decl
d
->
add
d
t
|
_
->
t
)
tables
task
(************* wrapper *************)
...
...
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