fixed bug with (->): added clean_up for TArrow

10809f56 · Artem Alimarine · a907a856 · 10809f56
Commit 10809f56 authored Jan 22, 2002 by Artem Alimarine
--- 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)