diff options
Diffstat (limited to 'frontend/parse.icl')
| -rw-r--r-- | frontend/parse.icl | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/frontend/parse.icl b/frontend/parse.icl index f1e6f88..26e3cc8 100644 --- a/frontend/parse.icl +++ b/frontend/parse.icl @@ -1020,7 +1020,8 @@ wantClassDefinition context pos pState (members, pState) = wantDefinitions (SetLocalContext context) pState class_def = { class_name = class_id, class_arity = class_arity, class_args = class_args, class_context = contexts, class_pos = pos, class_members = {}, class_cons_vars = class_cons_vars, - class_dictionary = { ds_ident = { class_id & id_info = nilPtr }, ds_arity = 0, ds_index = NoIndex }} + class_dictionary = { ds_ident = { class_id & id_info = nilPtr }, ds_arity = 0, ds_index = NoIndex }, + class_arg_kinds = []} pState = wantEndGroup "class" pState = (PD_Class class_def members, pState) | isEmpty contexts @@ -1030,7 +1031,8 @@ wantClassDefinition context pos pState (class_id, pState) = stringToIdent class_or_member_name IC_Class pState class_def = { class_name = class_id, class_arity = class_arity, class_args = class_args, class_context = contexts, class_pos = pos, class_members = {}, class_cons_vars = class_cons_vars, - class_dictionary = { ds_ident = { class_id & id_info = nilPtr }, ds_arity = 0, ds_index = NoIndex }} + class_dictionary = { ds_ident = { class_id & id_info = nilPtr }, ds_arity = 0, ds_index = NoIndex }, + class_arg_kinds = []} pState = wantEndOfDefinition "class definition" pState = (PD_Class class_def [], pState) = (PD_Erroneous, parseError "Class Definition" (Yes token) "<class definition>" pState) @@ -1077,7 +1079,8 @@ wantClassDefinition context pos pState member = PD_TypeSpec pos member_id prio (Yes tspec) SP_None class_def = { class_name = class_id, class_arity = class_arity, class_args = class_args, class_context = contexts, class_pos = pos, class_members = {}, class_cons_vars = class_cons_vars, - class_dictionary = { ds_ident = { class_id & id_info = nilPtr }, ds_arity = 0, ds_index = NoIndex }} + class_dictionary = { ds_ident = { class_id & id_info = nilPtr }, ds_arity = 0, ds_index = NoIndex }, + class_arg_kinds = []} pState = wantEndOfDefinition "overloaded function" pState = (PD_Class class_def [member], pState) |