From adecbb1e6ee4e2ace971e70b8f4cc5ce7b2f5d55 Mon Sep 17 00:00:00 2001
From: ronny
Date: Wed, 20 Aug 2003 12:51:42 +0000
Subject: removed unnecessary separate fields for universal variables, they are
 represented by the TFA constructor for types

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

(limited to 'frontend/syntax.icl')

diff --git a/frontend/syntax.icl b/frontend/syntax.icl
index 75ddda5..a32a191 100644
--- a/frontend/syntax.icl
+++ b/frontend/syntax.icl
@@ -414,8 +414,8 @@ where
 
 instance <<< DynamicPattern
 where
-	(<<<) file {dp_type_patterns_vars,dp_var,dp_rhs,dp_type_code}
-			= writeVarPtrs (file <<< dp_var <<< " :: ")  dp_type_patterns_vars <<<  dp_type_code <<< " = " <<< dp_rhs
+	(<<<) file {dp_var,dp_rhs,dp_type_code}
+			= file <<< dp_var <<< " :: " <<< dp_type_code <<< " = " <<< dp_rhs
 
 writeVarPtrs file []
 	= file
@@ -425,8 +425,7 @@ writeVarPtrs file vars
 		write_var_ptrs file [var]
 			= file <<< var
 		write_var_ptrs file [var : vars]
-			= write_var_ptrs (file <<< var <<< '.') vars
-		
+			= write_var_ptrs (file <<< var <<< '.') vars	
 		
 instance <<< TypeCodeExpression
 where
-- 
cgit v1.2.3