aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--backend/backendconvert.icl2
-rw-r--r--frontend/predef.icl22
2 files changed, 12 insertions, 12 deletions
diff --git a/backend/backendconvert.icl b/backend/backendconvert.icl
index e95566f..af5ca46 100644
--- a/backend/backendconvert.icl
+++ b/backend/backendconvert.icl
@@ -1075,7 +1075,7 @@ where
| i<size members
# member=members.[i]
# member_name=member.ds_ident.id_name
- | size member_name>0 && member_name.[0]=='c' // && trace_tn ("member: "+++member_name)
+ | size member_name>1 && member_name.[1]=='c' // && trace_tn ("member: "+++member_name)
# (ft_type,backEnd) = read_from_var_heap std_strict_lists.dcl_functions.[member.ds_index].ft_type_ptr backEnd
= case ft_type of
VI_ExpandedType _
diff --git a/frontend/predef.icl b/frontend/predef.icl
index bdeb3bb..c9abb76 100644
--- a/frontend/predef.icl
+++ b/frontend/predef.icl
@@ -69,19 +69,19 @@ predefined_idents
[PD_ArraySizeFun] = i "size",
[PD_UnqArraySizeFun] = i "usize",
- [PD_StdStrictLists] = i "StdStrictLists",
- [PD_cons] = i "cons",
- [PD_decons] = i "decons",
- [PD_nil] = i "nil",
+ [PD_StdStrictLists] = i "_SystemStrictLists",
+ [PD_cons] = i "_cons",
+ [PD_decons] = i "_decons",
+ [PD_nil] = i "_nil",
- [PD_cons_u] = i "cons_u",
- [PD_decons_u] = i "decons_u",
- [PD_nil_u] = i "nil_u",
+ [PD_cons_u] = i "_cons_u",
+ [PD_decons_u] = i "_decons_u",
+ [PD_nil_u] = i "_nil_u",
- [PD_cons_uts] = i "cons_uts",
- [PD_decons_uts] = i "decons_uts",
- [PD_nil_uts] = i "nil_uts",
-
+ [PD_cons_uts] = i "_cons_uts",
+ [PD_decons_uts] = i "_decons_uts",
+ [PD_nil_uts] = i "_nil_uts",
+
[PD_ListClass] = i "List",
[PD_UListClass] = i "UList",
[PD_UTSListClass] = i "UTSList",