diff options
| author | ronny | 2003-06-19 11:16:07 +0000 |
|---|---|---|
| committer | ronny | 2003-06-19 11:16:07 +0000 |
| commit | d1a5a14e6d7a2fed7f54c08f55085865e1813391 (patch) | |
| tree | 31cb92717a4e42abb958bcada56d21f55962cca7 /frontend/syntax.dcl | |
| parent | enable boxed records (diff) | |
s/sd__ident/sd_ident/g
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1353 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/syntax.dcl')
| -rw-r--r-- | frontend/syntax.dcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/frontend/syntax.dcl b/frontend/syntax.dcl index 06f2cdb..c9b468b 100644 --- a/frontend/syntax.dcl +++ b/frontend/syntax.dcl @@ -839,7 +839,7 @@ cNonRecursiveAppl :== False } :: SelectorDef = - { sd__ident :: !Ident + { sd_ident :: !Ident , sd_field :: !Ident , sd_type :: !SymbolType , sd_exi_vars :: ![ATypeVar] @@ -1406,7 +1406,7 @@ MakeTypeSymbIdent type_index name arity :== { newTypeSymbIdentCAF & type_ident = name, type_arity = arity, type_index = type_index } ParsedSelectorToSelectorDef sd_type_index ps :== - { sd__ident = ps.ps_selector_ident, sd_field_nr = NoIndex, sd_pos = ps.ps_field_pos, sd_type_index = sd_type_index, + { sd_ident = ps.ps_selector_ident, sd_field_nr = NoIndex, sd_pos = ps.ps_field_pos, sd_type_index = sd_type_index, sd_exi_vars = [], sd_type_ptr = nilPtr, sd_field = ps.ps_field_ident, sd_type = { st_vars = [], st_args = [], st_args_strictness=NotStrict, st_result = ps.ps_field_type, st_arity = 0, st_context = [], st_attr_env = [], st_attr_vars = [] }} |