home
/
code
/
tiger.ml.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
WIP
[tiger.ml.git]
/
compiler
/
src
/
lib
/
tiger
/
tiger_env_type.mli
diff --git
a/compiler/src/lib/tiger/tiger_env_type.mli
b/compiler/src/lib/tiger/tiger_env_type.mli
index
faeb84a
..
c8810a7
100644
(file)
--- a/
compiler/src/lib/tiger/tiger_env_type.mli
+++ b/
compiler/src/lib/tiger/tiger_env_type.mli
@@
-1,3
+1,5
@@
+module Sym = Tiger_symbol
+
type unique
type t =
type unique
type t =
@@
-13,12
+15,12
@@
type t =
{ unique : unique
; ty : t
}
{ unique : unique
; ty : t
}
- | Name of
Tiger_symbol
.t * t option ref
+ | Name of
Sym
.t * t option ref
and record_fields =
and record_fields =
- (
Tiger_symbol
.t * t) list
+ (
Sym
.t * t) list
type env =
type env =
- (
Tiger_symbol
.t, t ) Tiger_map.t
+ (
Sym
.t, t ) Tiger_map.t
val built_in : env
val built_in : env
@@
-31,8
+33,9
@@
val is_record : t -> bool
val is_name : t -> bool
val if_record : t -> f:(record_fields -> 'a) -> otherwise:(unit -> 'a) -> 'a
val is_name : t -> bool
val if_record : t -> f:(record_fields -> 'a) -> otherwise:(unit -> 'a) -> 'a
+val if_array : t -> f:(t -> 'a) -> otherwise:(unit -> 'a) -> 'a
-val new_record : record_fields -> t
-val new_array : t -> t
+val new_record :
name:Sym.t -> fields:
record_fields -> t
+val new_array :
name:Sym.t -> ty:
t -> t
val to_string : t -> string
val to_string : t -> string
This page took
0.025274 seconds
and
4
git commands to generate.