diff options
| author | johnvg | 2002-11-14 12:22:44 +0000 |
|---|---|---|
| committer | johnvg | 2002-11-14 12:22:44 +0000 |
| commit | dd3418a4c571dd62551cac86f4eb98e8d7eec377 (patch) | |
| tree | a91796c61fb5b520430c717bccc2363fdf6be694 | |
| parent | remove record update to record node transformation (for records (diff) | |
use _SystemStrictLists with _cons..,_decons.. and _nil..
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1280 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
| -rw-r--r-- | backend/backendconvert.icl | 2 | ||||
| -rw-r--r-- | frontend/predef.icl | 22 |
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", |