From b223cf65a3306878558f1bdc1992805942824211 Mon Sep 17 00:00:00 2001
From: sjakie
Date: Tue, 2 Oct 2001 14:23:04 +0000
Subject: removed uniqueness errors

git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@813 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
---
 frontend/type.icl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'frontend')

diff --git a/frontend/type.icl b/frontend/type.icl
index ff279bd..8e02045 100644
--- a/frontend/type.icl
+++ b/frontend/type.icl
@@ -67,7 +67,7 @@ where
 instance arraySubst Type
 where
 	arraySubst tv=:(TempV tv_number) subst
-		#! type = subst.[tv_number]
+		# (type, subst) = subst![tv_number]
 		= case type of
 			TE	-> (False,tv, subst)
 			_
@@ -84,7 +84,7 @@ where
 			= (True, TA cons_id cons_args, subst) 
 			= (False,type, subst) 
 	arraySubst tcv=:(TempCV tv_number :@: types) subst
-		#! type = subst.[tv_number]
+		# (type, subst) = subst![tv_number]
 		= case type of
 			TE
 				# (changed,types, subst) = arraySubst types subst
-- 
cgit v1.2.3