Commit 62c99fd5 authored by Mário Pereira's avatar Mário Pereira

Fixed extraction for patterns with a completely ghost mask

parent 14a9eb14
......@@ -94,6 +94,8 @@ module Translate = struct
rdef :: filter_out_ghost_rdef l
let rec pat m p = match p.pat_node with
| _ when mask_equal m MaskGhost ->
ML.Pwild
| Pwild ->
ML.Pwild
| Pvar vs when (restore_pv vs).pv_ghost ->
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment