From 231ec97c3a22abc91666ab1c144052470f40e6c0 Mon Sep 17 00:00:00 2001
From: martijnv
Date: Thu, 29 Mar 2001 09:28:08 +0000
Subject: small bug reported by Ronny repaired

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

diff --git a/frontend/type_io.icl b/frontend/type_io.icl
index 69b7332..43bcc98 100644
--- a/frontend/type_io.icl
+++ b/frontend/type_io.icl
@@ -389,15 +389,16 @@ where
 /*2.0
 instance WriteTypeInfo String
 where
-	write_type_info s tcl_file wtis
-		# tcl_file
-			= fwritei (size s) tcl_file
-		= fwrites s tcl_file
-	// warning:
-	// Should be identical to the code in Ident
+        write_type_info s tcl_file wtis
+                # tcl_file
+                        = fwritei (size s) tcl_file
+                = (fwrites s tcl_file,wtis)
+        // warning:
+        // Should be identical to the code in Ident
 
 0.2*/
 
+
 // basic and structural write_type_info's
 instance WriteTypeInfo Int 
 where
-- 
cgit v1.2.3