11 lines
254 B
Standard ML
11 lines
254 B
Standard ML
signature TEMP =
|
|
sig
|
|
eqtype temp
|
|
val newtemp : unit -> temp
|
|
structure Table : TABLE sharing type Table.key = temp
|
|
val makestring: temp -> string
|
|
type label = Symbol.symbol
|
|
val newlabel : unit -> label
|
|
val namedlabel : string -> label
|
|
end
|
|
|