Переглянути джерело

exit pattern matching when :fakeEnum is found (fixed issue #1377)

Simon Krajewski 12 роки тому
батько
коміт
68d7ae590b
1 змінених файлів з 1 додано та 1 видалено
  1. 1 1
      matcher.ml

+ 1 - 1
matcher.ml

@@ -941,7 +941,7 @@ let match_expr ctx e cases def with_type p =
 		| _ ->
 			let e = type_expr ctx e Value in
 			begin match e.etype with
-			| TEnum(en,_) when PMap.is_empty en.e_constrs ->
+			| TEnum(en,_) when PMap.is_empty en.e_constrs || has_meta ":fakeEnum" en.e_meta ->
 				raise Exit
 			| _ ->
 				()