1 type pos = Tiger_position.t
3 type symbol = Tiger_symbol.t
39 { fields : (symbol * exp * pos) list
63 ; escape : bool ref (* Whoa - why a mutable cell in AST? *)
98 | FunDecs of (* "FunctionDec" in Appel's code *)
102 ; escape : bool ref (* Again, why mutable? *)
103 ; typ : (symbol * pos) option
107 | TypeDecs of (* "TypeDec" in Appel's code *)
128 | TypeDec of (* An anonymous record in Appel's code *)
136 ; params : field list
137 ; result : (symbol * pos) option
144 let to_string _ = "TODO: implement Tiger_absyn.to_string"