Преглед на файлове

add back special matching for `case macro`

Simon Krajewski преди 11 години
родител
ревизия
e11c775481
променени са 1 файла, в които са добавени 1 реда и са изтрити 0 реда
  1. 1 0
      matcher.ml

+ 1 - 0
matcher.ml

@@ -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)