diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-07-29 15:43:17 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-07-29 15:43:17 -0400 |
| commit | 846cf3f1661a8c91e40d80382db28c76dceaf1f0 (patch) | |
| tree | fe42c0c78660d50832719e1ae9fd9cda2d7e603f /src/mono_env.sig | |
| parent | cb3b3831a07d6674a5fa02e3e8a1e4329b58cb34 (diff) | |
Storing datatype constructors in type references past monoize
Diffstat (limited to 'src/mono_env.sig')
| -rw-r--r-- | src/mono_env.sig | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/mono_env.sig b/src/mono_env.sig index e1e78b48..e3ff94b6 100644 --- a/src/mono_env.sig +++ b/src/mono_env.sig @@ -34,8 +34,8 @@ signature MONO_ENV = sig exception UnboundRel of int exception UnboundNamed of int - val pushTNamed : env -> string -> int -> Mono.typ option -> env - val lookupTNamed : env -> int -> string * Mono.typ option + val pushDatatype : env -> string -> int -> (string * int * Mono.typ option) list -> env + val lookupDatatype : env -> int -> string * (string * int * Mono.typ option) list val pushERel : env -> string -> Mono.typ -> env val lookupERel : env -> int -> string * Mono.typ |