diff options
Diffstat (limited to 'bytecomp/matching.ml')
| -rw-r--r-- | bytecomp/matching.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/bytecomp/matching.ml b/bytecomp/matching.ml index 184626dfa6..f7caf464e7 100644 --- a/bytecomp/matching.ml +++ b/bytecomp/matching.ml @@ -2337,8 +2337,8 @@ and do_compile_matching repr partial ctx arg pmh = match pmh with ctx pm | Tpat_variant(lab, _, row) -> compile_test (compile_match repr partial) partial - (divide_variant row) - (combine_variant row arg partial) + (divide_variant !row) + (combine_variant !row arg partial) ctx pm | _ -> assert false end |