Commit e2807475 authored by POTTIER Francois's avatar POTTIER Francois


parent d1d7ca22
......@@ -189,8 +189,10 @@ type environment =
(* [lookup x env] returns the type related to [x] in the typing environment
By convention, identifiers that are not in [env] are terminals. They are
given the type [Star]. *)
let lookup x (env: environment) =
given the type [Star]. (This seems a rather fragile convention, as it
relies on the fact that the well-definedness of every identifier has
been previously checked; see [PartialGrammar]. -fpottier) *)
let lookup (x : string) (env: environment) =
snd (List.assoc x env)
with Not_found -> star_variable
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