renamed field names of type Ident in syntax tree

s/\<mod_name\>/mod_ident/g
s/\<ps_field_name\>/ps_field_ident/g
s/\<ps_selector_name\>/ps_selector_ident/g
s/\<pc_cons_name\>/pc_cons_ident/g
s/\<class_name\>/class_ident/g
s/\<gen_name\>/gen_ident/g
s/\<gen_member_name\>/gen_member_ident/g
s/\<gc_name\>/gc_ident/g
s/\<gc_gname\>/gc_gident/g
s/\<fs_name\>/fs_ident/g
s/\<td_name\>/td_ident/g
s/\<fv_name\>/fv_ident/g
s/\<var_name\>/var_ident/g
s/\<type_name\>/type_ident/g
s/\<symb_name\>/symb_ident/g
s/\<tv_name\>/tv_ident/g
s/\<av_name\>/av_ident/g
s/\<me_symb\>/me_ident/g
s/\<ft_symb\>/ft_ident/g
s/\<fun_symb\>/fun_ident/g
s/\<cons_symb\>/cons_ident/g
s/\<sd_symb\>/sd__ident/g


git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1340 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d

1 files changed, 4 insertions, 4 deletions

diff --git a/frontend/StdCompare.icl b/frontend/StdCompare.icl
index f902857..69a9773 100644
--- a/frontend/StdCompare.icl
+++ b/frontend/StdCompare.icl
@@ -224,12 +224,12 @@ where
 instance =< BoundVar
 where
 	(=<) bv1 bv2
-		= bv1.var_name =< bv2.var_name
+		= bv1.var_ident =< bv2.var_ident
 	
 instance =< FreeVar
 where
 	(=<) fv1 fv2
-		= fv1.fv_name =< fv2.fv_name
+		= fv1.fv_ident =< fv2.fv_ident
 	
 instance =< Ident
 where
@@ -244,7 +244,7 @@ where
 instance =< TypeSymbIdent
 where
 	(=<) s1 s2
-		= s1.type_name =< s2.type_name
+		= s1.type_ident =< s2.type_ident
 
 instance =< Type
 where
@@ -316,5 +316,5 @@ where
 
 instance < MemberDef
 where
-	(<) md1 md2 = md1.me_symb.id_name < md2.me_symb.id_name
+	(<) md1 md2 = md1.me_ident.id_name < md2.me_ident.id_name