diff options
| author | ronny | 2003-08-20 12:51:42 +0000 |
|---|---|---|
| committer | ronny | 2003-08-20 12:51:42 +0000 |
| commit | adecbb1e6ee4e2ace971e70b8f4cc5ce7b2f5d55 (patch) | |
| tree | f1f8ae4dc7256c38ea3357d61a1ffe1ac629b7d8 /frontend/syntax.icl | |
| parent | removed unused administrations (diff) | |
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
Diffstat (limited to 'frontend/syntax.icl')
| -rw-r--r-- | frontend/syntax.icl | 7 |
1 files changed, 3 insertions, 4 deletions
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 |