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
POTTIER Francois
menhir
Commits
ffea9880
Commit
ffea9880
authored
Nov 04, 2015
by
POTTIER Francois
Browse files
Indentation.
parent
aa0fd778
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/partialGrammar.ml
View file @
ffea9880
...
...
@@ -587,7 +587,7 @@ let join grammar pgrammar =
let
check_keywords
producers
action
=
List
.
iter
(
fun
keyword
->
match
Positions
.
value
keyword
with
|
Position
(
RightNamed
id
,
_
,
_
)
->
|
Position
(
RightNamed
id
,
_
,
_
)
->
let
found
=
ref
false
in
List
.
iter
(
fun
(
ido
,
_
)
->
if
ido
.
value
=
id
then
found
:=
true
...
...
@@ -595,9 +595,9 @@ let check_keywords producers action =
if
not
!
found
then
Error
.
errorp
keyword
"%s refers to a nonexistent symbol."
id
|
Position
(
Left
,
_
,
_
)
|
SyntaxError
->
()
|
Position
(
Left
,
_
,
_
)
|
SyntaxError
->
()
)
(
Action
.
pkeywords
action
)
let
check_parameterized_grammar_is_well_defined
grammar
=
...
...
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