Mercurial > urweb

comparison src/mono_util.sig @ 168:25b169416ea8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Storing datatype constructors in type references past monoize
author Adam Chlipala <adamc@hcoop.net>
date Tue, 29 Jul 2008 15:43:17 -0400
parents 813e5a52063d
children 8e9f97508f0d
comparison
equal deleted inserted replaced
167:2be573fec9a6 168:25b169416ea8
43 val exists : (Mono.typ' -> bool) -> Mono.typ -> bool 43 val exists : (Mono.typ' -> bool) -> Mono.typ -> bool
44 end 44 end
45 45
46 structure Exp : sig 46 structure Exp : sig
47 datatype binder = 47 datatype binder =
48 NamedT of string * int * Mono.typ option 48 Datatype of string * int * (string * int * Mono.typ option) list
49 | RelE of string * Mono.typ 49 | RelE of string * Mono.typ
50 | NamedE of string * int * Mono.typ * Mono.exp option * string 50 | NamedE of string * int * Mono.typ * Mono.exp option * string
51 51
52 val mapfoldB : {typ : (Mono.typ', 'state, 'abort) Search.mapfolder, 52 val mapfoldB : {typ : (Mono.typ', 'state, 'abort) Search.mapfolder,
53 exp : ('typtext, Mono.exp', 'state, 'abort) Search.mapfolderB, 53 exp : ('typtext, Mono.exp', 'state, 'abort) Search.mapfolderB,