From dde81af09756128984af7b18e80bc17c0635dd16 Mon Sep 17 00:00:00 2001
From: alimarin
Date: Tue, 22 Jan 2002 15:40:43 +0000
Subject: fixed bug with (->): added clean_up  for TArrow

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

diff --git a/frontend/typesupport.icl b/frontend/typesupport.icl
index 42d8426..f73bec0 100644
--- a/frontend/typesupport.icl
+++ b/frontend/typesupport.icl
@@ -149,6 +149,8 @@ where
 	clean_up cui (TArrow1 argtype) cus
 		# (argtype, cus) = clean_up cui argtype cus
 		=  (TArrow1 argtype, cus)
+	clean_up cui t=:TArrow cus
+		=  (t, cus)
 //..AA		
 	clean_up cui t=:(TB _) cus
 		=  (t, cus)
-- 
cgit v1.2.3