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 /backend | |
| 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 'backend')
| -rw-r--r-- | backend/backendconvert.icl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/backend/backendconvert.icl b/backend/backendconvert.icl index a6fab56..2883c58 100644 --- a/backend/backendconvert.icl +++ b/backend/backendconvert.icl @@ -414,13 +414,13 @@ backEndConvertModulesH predefs {fe_icl = , "dcl constructors" , [constructor.cons_ident.id_name \\ constructor <-: currentDcl.dcl_common.com_cons_defs] , "dcl selectors" - , [selector.sd__ident.id_name \\ selector <-: currentDcl.dcl_common.com_selector_defs] + , [selector.sd_ident.id_name \\ selector <-: currentDcl.dcl_common.com_selector_defs] , "dcl types" , [type.td_ident.id_name \\ type <-: currentDcl.dcl_common.com_type_defs] , "icl constructors" , [constructor.cons_ident.id_name \\ constructor <-: icl_common.com_cons_defs] , "icl selectors" - , [selector.sd__ident.id_name \\ selector <-: icl_common.com_selector_defs] + , [selector.sd_ident.id_name \\ selector <-: icl_common.com_selector_defs] , "icl types" , [type.td_ident.id_name \\ type <-: icl_common.com_type_defs] ) @@ -875,7 +875,7 @@ convertSelectors moduleIndex selectors symbols strictness convertSelector :: ModuleIndex {#SelectorDef} Bool FieldSymbol -> BEMonad BEFieldListP convertSelector moduleIndex selectorDefs is_strict {fs_index} = \be0 -> let (selectorType,be) = selectorTypeFunction be0 in - ( appBackEnd (BEDeclareField fs_index moduleIndex selectorDef.sd__ident.id_name) + ( appBackEnd (BEDeclareField fs_index moduleIndex selectorDef.sd_ident.id_name) o` beField fs_index moduleIndex (convertAnnotAndTypeNode (if is_strict AN_Strict AN_None) (selectorType.st_result))) be where selectorDef |