Import Upstream version 20180207

[hcoop/debian/mlton.git] / mlton / elaborate / elaborate.fun

(* Copyright (C) 1999-2005 Henry Cejtin, Matthew Fluet, Suresh
 *    Jagannathan, and Stephen Weeks.
 * Copyright (C) 1997-2000 NEC Research Institute.
 *
 * MLton is released under a BSD-style license.
 * See the file MLton-LICENSE for details.
 *)

functor Elaborate (S: ELABORATE_STRUCTS): ELABORATE = 
struct

open S

structure Env = ElaborateEnv (structure Ast = Ast
                              structure CoreML = CoreML
                              structure TypeEnv = TypeEnv)

local
   open Env
in
   structure Decs = Decs
end

structure ElaborateMLBs = ElaborateMLBs (structure Ast = Ast
                                         structure CoreML = CoreML
                                         structure Decs = Decs
                                         structure Env = Env)

open ElaborateMLBs
end