From 77c19d968a1a5e55c5453fb21c57628eade7f803 Mon Sep 17 00:00:00 2001
From: johnvg
Date: Wed, 2 Feb 2011 13:26:22 +0000
Subject: don't write fs_var to .tcl file, because it is the same as fs_ident,
 also requires new linkers

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

(limited to 'frontend')

diff --git a/frontend/type_io.icl b/frontend/type_io.icl
index 36f7d12..6e24999 100644
--- a/frontend/type_io.icl
+++ b/frontend/type_io.icl
@@ -205,18 +205,14 @@ where
 		# tcl_file
 			= fwritei (size id_name) tcl_file
 		= (fwrites id_name tcl_file,wtis)
-		
+
 instance WriteTypeInfo FieldSymbol
 where
-	write_type_info {fs_ident,fs_var,fs_index} tcl_file wtis
+	write_type_info {fs_ident,fs_index} tcl_file wtis
 		# (tcl_file,wtis)
 			= write_type_info fs_ident tcl_file wtis
-		# (tcl_file,wtis)
-			= write_type_info fs_var tcl_file wtis
-		# (tcl_file,wtis)
-			= write_type_info fs_index tcl_file wtis
-		= (tcl_file,wtis)
-		
+		= write_type_info fs_index tcl_file wtis
+
 instance WriteTypeInfo SymbolType
 where
 	write_type_info symbol_type tcl_file wtis
-- 
cgit v1.2.3