aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authormartijnv2001-03-29 09:28:08 +0000
committermartijnv2001-03-29 09:28:08 +0000
commit231ec97c3a22abc91666ab1c144052470f40e6c0 (patch)
tree967d6f8065239276730d30d2dae39e5813b9234c
parentConvert Conditionals in the conditional expression of another Conditional to ... (diff)
small bug reported by Ronny repaired
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@353 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
-rw-r--r--frontend/type_io.icl13
1 files 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