~thon/thon

ref: 5180b858109c12b20eac00c11eff87b0f5dc993a thon/elaborate.sml -rw-r--r-- 261 bytes
5180b858Evan Bergeron Use List in datatype example 4 months ago
                                                                                
1
2
3
4
5
6
7
8
9
10
11
structure Elaborate : sig
              val elaborate : Ast.exp -> Ast.exp
          end =
struct
fun elaborate ast =
    let
        val datatypeNameToType = HashTable.mkTable (HashString.hashString, op=) (42, Fail "not found");
    in
        ast
    end
end