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
9f622c39
Commit
9f622c39
authored
Sep 22, 2015
by
POTTIER Francois
Browse files
Re-established an assertion. Comment.
parent
08e069ff
Changes
1
Show whitespace changes
Inline
Side-by-side
src/LRijkstra.ml
View file @
9f622c39
...
...
@@ -34,6 +34,9 @@
Thus, in principle, we work with ``real'' terminal symbols only. However,
we encode [any] as [#] -- see below. *)
(* NOTE: THIS FILE IS COMPILED WITH -noassert BY DEFAULT. If you would like
the assertions to be tested at runtime, change that in the file _tags. *)
(* ------------------------------------------------------------------------ *)
(* To delay the side effects performed by this module, we wrap everything in
...
...
@@ -568,7 +571,7 @@ end = struct
MySet
.
Make
(
struct
type
t
=
fact
let
compare
fact1
fact2
=
(*
assert (fact1.lookahead = fact2.lookahead);
*)
assert
(
fact1
.
lookahead
=
fact2
.
lookahead
);
let
c
=
Trie
.
compare
fact1
.
position
fact2
.
position
in
if
c
<>
0
then
c
else
let
z
=
fact1
.
lookahead
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