diff options
| author | Gabriel Scherer <gabriel.scherer@gmail.com> | 2015-04-26 20:00:53 +0000 |
|---|---|---|
| committer | Gabriel Scherer <gabriel.scherer@gmail.com> | 2015-04-26 20:00:53 +0000 |
| commit | feab60e1681f43dbc1e1e348bed4b96781100a93 (patch) | |
| tree | a8c1ae2000c000b573a84625afb09fa2ad91f45b /tools | |
| parent | fd923a63666d259f4b8c9525d589c745dcab85b3 (diff) | |
| download | ocaml-feab60e1681f43dbc1e1e348bed4b96781100a93.tar.gz | |
fix minor mistake in tools/eqparsetree.ml
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@16041 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'tools')
| -rw-r--r-- | tools/eqparsetree.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tools/eqparsetree.ml b/tools/eqparsetree.ml index c2571c3609..4c699e9988 100644 --- a/tools/eqparsetree.ml +++ b/tools/eqparsetree.ml @@ -274,7 +274,7 @@ let rec eq_structure_item_desc : (Asttypes.eq_loc eq_string (a0, b0)) && (eq_value_description (a1, b1)) | (Pstr_type (a0, a1), Pstr_type (b0, b1)) -> - (Asttypes.eq_rec_flag (a0, b0) && + (Asttypes.eq_rec_flag (a0, b0)) && eq_list (fun ((a0, a1), (b0, b1)) -> (Asttypes.eq_loc eq_string (a0, b0)) && @@ -361,7 +361,7 @@ and eq_signature_item_desc : (Asttypes.eq_loc eq_string (a0, b0)) && (eq_value_description (a1, b1)) | (Psig_type (a0, a1), Psig_type (b0, b1)) -> - (Asttypes.eq_rec_flag (a0, b0) && + (Asttypes.eq_rec_flag (a0, b0)) && eq_list (fun ((a0, a1), (b0, b1)) -> (Asttypes.eq_loc eq_string (a0, b0)) && |