Przeglądaj źródła

minor fix : treat TMono same as TDynamic

Nicolas Cannasse 16 lat temu
rodzic
commit
b2ef697ab9
1 zmienionych plików z 1 dodań i 1 usunięć
  1. 1 1
      genswf9.ml

+ 1 - 1
genswf9.ml

@@ -228,7 +228,7 @@ let rec type_id ctx t =
 
 
 let type_opt ctx t =
 let type_opt ctx t =
 	match follow t with
 	match follow t with
-	| TDynamic _ -> None
+	| TDynamic _ | TMono _ -> None
 	| _ -> Some (type_id ctx t)
 	| _ -> Some (type_id ctx t)
 
 
 let type_void ctx t =
 let type_void ctx t =