lib/mlton/env/cache.fun

   1 (* Copyright (C) 1999-2006, 2008 Henry Cejtin, Matthew Fluet, Suresh
   2  *    Jagannathan, and Stephen Weeks.
   3  *
   4  * MLton is released under a BSD-style license.
   5  * See the file MLton-LICENSE for details.
   6  *)
   7
   8 functor Cache(Domain: T): CACHE =
   9 struct
  10
  11 structure Domain = Domain
  12
  13 open PolyCache
  14
  15 type 'a t = (Domain.t, 'a) t
  16
  17 fun new() = PolyCache.new{equal = Domain.equals}
  18
  19 end