@@ -63,7 +63,6 @@ and ident_char = ident_create("Char")
6363and ident_void = ident_create("Void" )
6464and ident_box = ident_create("Box" )
6565and ident_array = ident_create("Array" )
66- and ident_fd = ident_create("FileDescriptor" )
6766and ident_assertion_error = ident_create_predef_exn("AssertionError" )
6867and ident_index_out_of_bounds = ident_create_predef_exn("IndexOutOfBounds" )
6968and ident_index_non_integer = ident_create_predef_exn("IndexNonInteger" )
@@ -97,8 +96,7 @@ and path_bytes = PIdent(ident_bytes)
9796and path_char = PIdent (ident_char)
9897and path_void = PIdent (ident_void)
9998and path_box = PIdent (ident_box)
100- and path_array = PIdent (ident_array)
101- and path_fd = PIdent (ident_fd);
99+ and path_array = PIdent (ident_array);
102100
103101let type_number = newgenty(TTyConstr (path_number, [] , ref (TMemNil )))
104102and type_exception = newgenty(TTyConstr (path_exception, [] , ref (TMemNil )))
@@ -138,7 +136,6 @@ and type_void = newgenty(TTyConstr(path_void, [], ref(TMemNil)))
138136and type_box = var => newgenty(TTyConstr (path_box, [ var] , ref (TMemNil )))
139137and type_array = var =>
140138 newgenty(TTyConstr (path_array, [ var] , ref (TMemNil )))
141- and type_fd = newgenty(TTyConstr (path_fd, [] , ref (TMemNil )))
142139and type_lambda = (args, res) => newgenty(TTyArrow (args, res, TComOk ));
143140
144141let decl_abstr = path => {
@@ -306,7 +303,6 @@ let initial_env = (add_type, add_extension, empty_env) =>
306303 |> add_type(ident_char, decl_abstr_imm(WasmI32 , path_char))
307304 |> add_type(ident_void, decl_void)
308305 |> add_type(ident_array, decl_array)
309- |> add_type(ident_fd, decl_abstr(path_fd))
310306 |> add_type(ident_bytes, decl_abstr(path_bytes))
311307 |> add_extension(ident_assertion_error, decl_assertion_error)
312308 |> add_extension(ident_index_out_of_bounds, decl_index_out_of_bounds)
0 commit comments