diff options
| author | Emilio Jesus Gallego Arias | 2019-04-16 20:56:41 +0200 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2019-04-16 20:56:41 +0200 |
| commit | 55c43917f41064777e248b9e270b04a2b86e76f3 (patch) | |
| tree | 8544430766bfaa23fd67f3db87231661cc3c76d6 /interp/notation_ops.ml | |
| parent | 3dc819375ceeb02f6f565b0d5d1fbf99752a6ffa (diff) | |
| parent | 002482e6d254e1b269e4e427121fe05a1d3a77b1 (diff) | |
Merge PR #9165: Recarg cleanup
Reviewed-by: Zimmi48
Reviewed-by: ejgallego
Reviewed-by: herbelin
Reviewed-by: mattam82
Ack-by: maximedenes
Diffstat (limited to 'interp/notation_ops.ml')
| -rw-r--r-- | interp/notation_ops.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/interp/notation_ops.ml b/interp/notation_ops.ml index 9801e56ca1..7f084fffdd 100644 --- a/interp/notation_ops.ml +++ b/interp/notation_ops.ml @@ -957,7 +957,7 @@ let match_fix_kind fk1 fk2 = match (fk1,fk2) with | GCoFix n1, GCoFix n2 -> Int.equal n1 n2 | GFix (nl1,n1), GFix (nl2,n2) -> - let test (n1, _) (n2, _) = match n1, n2 with + let test n1 n2 = match n1, n2 with | _, None -> true | Some id1, Some id2 -> Int.equal id1 id2 | _ -> false |