aboutsummaryrefslogtreecommitdiff
path: root/frontend/overloading.icl
diff options
context:
space:
mode:
authorjohnvg2006-11-23 12:40:06 +0000
committerjohnvg2006-11-23 12:40:06 +0000
commit7e6155bcb838ada5c86b486d8c906bd14282e91d (patch)
tree4e73a05250a0729ab57d509a59e8087aad33ddb9 /frontend/overloading.icl
parentreport an error if an existential type is used (diff)
fix bug that may occur if a TC class is used in a context of a class, that
is also used in a context of a class git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1628 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/overloading.icl')
-rw-r--r--frontend/overloading.icl2
1 files changed, 1 insertions, 1 deletions
diff --git a/frontend/overloading.icl b/frontend/overloading.icl
index 36bb1e6..00c384a 100644
--- a/frontend/overloading.icl
+++ b/frontend/overloading.icl
@@ -929,7 +929,7 @@ expressionToTypeCodeExpression (TypeCodeExpression texpr)
expressionToTypeCodeExpression (ClassVariable var_info_ptr)
= TCE_TypeTerm var_info_ptr
expressionToTypeCodeExpression (Selection NormalSelector (ClassVariable var_info_ptr) selectors)
- = TCE_Selector (init selectors) var_info_ptr
+ = TCE_Selector selectors var_info_ptr
expressionToTypeCodeExpression expr
= abort "expressionToTypeCodeExpression (overloading.icl)"