aboutsummaryrefslogtreecommitdiff
path: root/backend
diff options
context:
space:
mode:
authorjohnvg2002-11-14 12:22:44 +0000
committerjohnvg2002-11-14 12:22:44 +0000
commitdd3418a4c571dd62551cac86f4eb98e8d7eec377 (patch)
treea91796c61fb5b520430c717bccc2363fdf6be694 /backend
parentremove 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
Diffstat (limited to 'backend')
-rw-r--r--backend/backendconvert.icl2
1 files changed, 1 insertions, 1 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 _