From dc65169372a5f091a6a2b82fb2fe1fa6bc071868 Mon Sep 17 00:00:00 2001
From: sjakie
Date: Tue, 19 Oct 1999 11:24:04 +0000
Subject: *** empty log message ***

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

(limited to 'frontend')

diff --git a/frontend/syntax.icl b/frontend/syntax.icl
index af1f101..4641e74 100644
--- a/frontend/syntax.icl
+++ b/frontend/syntax.icl
@@ -1120,15 +1120,18 @@ where
 
 instance <<< TypeVar
 where
-	(<<<) file varid = file <<< varid.tv_name <<< '[' <<< ptrToInt varid.tv_info_ptr <<< ']'
+//	(<<<) file varid = file <<< varid.tv_name <<< '[' <<< ptrToInt varid.tv_info_ptr <<< ']'
+	(<<<) file varid = file <<< varid.tv_name 
 
 instance <<< AttributeVar
 where
-	(<<<) file {av_name,av_info_ptr} = file <<< av_name <<< '[' <<< ptrToInt av_info_ptr <<< ']'
+//	(<<<) file {av_name,av_info_ptr} = file <<< av_name <<< '[' <<< ptrToInt av_info_ptr <<< ']'
+	(<<<) file {av_name,av_info_ptr} = file <<< av_name 
 
 instance toString AttributeVar
 where
-	toString {av_name,av_info_ptr} = toString av_name + "[" + toString (ptrToInt av_info_ptr) + "]"
+//	toString {av_name,av_info_ptr} = toString av_name + "[" + toString (ptrToInt av_info_ptr) + "]"
+	toString {av_name,av_info_ptr} = toString av_name
 
 instance <<< AType
 where
-- 
cgit v1.2.3