From d1a5a14e6d7a2fed7f54c08f55085865e1813391 Mon Sep 17 00:00:00 2001
From: ronny
Date: Thu, 19 Jun 2003 11:16:07 +0000
Subject: s/sd__ident/sd_ident/g

git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1353 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
---
 frontend/syntax.dcl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'frontend/syntax.dcl')

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 = [] }}
-- 
cgit v1.2.3