| 34 |
|
|
| 35 |
(* Pattern matching: compilation *) |
(* Pattern matching: compilation *) |
| 36 |
|
|
| 37 |
module NF : sig |
module Compile: sig |
|
type nf |
|
| 38 |
type normal |
type normal |
| 39 |
val nf : descr -> nf |
val normal : descr -> normal |
| 40 |
val normal : nf -> normal |
|
| 41 |
module Disp : sig |
type dispatcher |
| 42 |
val show : Format.formatter -> Types.descr -> normal array -> unit |
val show : Format.formatter -> Types.descr -> normal array -> unit |
| 43 |
end |
end |
|
(* |
|
|
val show : Format.formatter -> Types.descr -> nf list -> unit |
|
|
val get : int -> Types.descr * normal list |
|
|
*) |
|
|
end |
|