Commit d043581b authored by Pietro Abate's avatar Pietro Abate
Browse files

[r2005-04-22 13:18:31 by afrisch] Factor-out internalization of types/patterns

Original author: afrisch
Date: 2005-04-22 13:18:31+00:00
parent 327da973
open Ident open Ident
open Location
type node = { type node = {
mutable desc: desc; mutable desc: desc;
...@@ -674,7 +673,6 @@ open Location ...@@ -674,7 +673,6 @@ open Location
and elim_concat_type t q = and elim_concat_type t q =
if not (Types.subtype t Sequence.any) then if not (Types.subtype t Sequence.any) then
raise (Patterns.Error "Left argument of concatenation is not a sequence type"); raise (Patterns.Error "Left argument of concatenation is not a sequence type");
(* TODO: check t <= [ Any* ] *)
let mem = H.create 17 in let mem = H.create 17 in
let rec aux t = let rec aux t =
try H.find mem t try H.find mem t
......
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