12 lines
254 B
Standard ML
12 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
|
||
|
|
|