Initial revision
[bpt/mlt.git] / src / lib / string-map.sml
CommitLineData
c0a3b488
AC
1structure StringKey :> ORD_KEY where type ord_key = string =
2struct
3 type ord_key = string
4 val compare = String.compare
5end
6
7structure StringMap = BinaryMapFn(StringKey)
8structure StringSet = BinarySetFn(StringKey)