Commit 454d2f24 authored by John van Groningen's avatar John van Groningen
Browse files

use _SystemStrictLists with _cons..,_decons.. and _nil..

parent 0ad76ad1
......@@ -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 _
......
......@@ -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",
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment