Skip to content

Commit

Permalink
add back special matching for case macro
Browse files Browse the repository at this point in the history
  • Loading branch information
Simn committed Aug 13, 2014
1 parent 0e038d1 commit e11c775
Showing 1 changed file with 1 addition and 0 deletions.
1 change: 1 addition & 0 deletions matcher.ml
Original file line number Diff line number Diff line change
Expand Up @@ -493,6 +493,7 @@ let to_pattern ctx e t =
sl,pl,i
else
let pat = try
if pctx.pc_reify && cf.cf_name = "pos" then raise Not_found;
loop pctx (List.assoc cf.cf_name fl) (f cf)
with Not_found ->
(mk_any cf.cf_type p)
Expand Down

0 comments on commit e11c775

Please sign in to comment.