diff options
Diffstat (limited to 'frontend/parse.icl')
| -rw-r--r-- | frontend/parse.icl | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/frontend/parse.icl b/frontend/parse.icl index 57cb157..88d71ab 100644 --- a/frontend/parse.icl +++ b/frontend/parse.icl @@ -1223,8 +1223,8 @@ wantClassDefinition parseContext pos pState (members, pState) = wantDefinitions (SetClassOrInstanceDefsContext parseContext) pState class_def = { class_ident = 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_arg_kinds = [] } + class_dictionary = { ds_ident = { class_id & id_info = nilPtr }, ds_arity = 0, ds_index = NoIndex} + } pState = wantEndGroup "class" pState = (PD_Class class_def members, pState) | isEmpty contexts @@ -1234,8 +1234,8 @@ wantClassDefinition parseContext pos pState (class_id, pState) = stringToIdent class_or_member_name IC_Class pState class_def = { class_ident = 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_arg_kinds = []} + class_dictionary = { ds_ident = { class_id & id_info = nilPtr }, ds_arity = 0, ds_index = NoIndex } + } pState = wantEndOfDefinition "class definition" pState = (PD_Class class_def [], pState) = (PD_Erroneous, parseError "Class Definition" (Yes token) "<class definition>" pState) @@ -1283,8 +1283,8 @@ wantClassDefinition parseContext pos pState member = PD_TypeSpec pos member_id prio (Yes tspec) SP_None class_def = { class_ident = 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_arg_kinds = []} + class_dictionary = { ds_ident = { class_id & id_info = nilPtr }, ds_arity = 0, ds_index = NoIndex } + } pState = wantEndOfDefinition "overloaded function" pState = (PD_Class class_def [member], pState) |