diff options
| author | ronny | 2002-09-20 08:40:45 +0000 |
|---|---|---|
| committer | ronny | 2002-09-20 08:40:45 +0000 |
| commit | 97560231e2b243d0dd3cac4b689c8cf37eaa192f (patch) | |
| tree | 168bca9727288fc90dda4baac8e9159a1098d24a /frontend/convertcases.icl | |
| parent | bug fixed: check if overloading is solved in type codes, removed some unused ... (diff) | |
switch to 2.0 syntax, remove duplicated definitions from icl modules
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1200 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/convertcases.icl')
| -rw-r--r-- | frontend/convertcases.icl | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/frontend/convertcases.icl b/frontend/convertcases.icl index 3fa1ff6..c8822ad 100644 --- a/frontend/convertcases.icl +++ b/frontend/convertcases.icl @@ -1729,11 +1729,6 @@ splitGuards (BasicPatterns basicType patterns) splitGuards (OverloadedListPatterns type decons_expr patterns) = [OverloadedListPatterns type decons_expr [pattern] \\ pattern <- patterns] -:: TypedVariable = - { tv_free_var :: !FreeVar - , tv_type :: !AType - } - copyExpression :: ![TypedVariable] !Expression !*VarHeap -> (![Expression], ![TypedVariable], ![FreeVar], !Expression, !*VarHeap) copyExpression bound_vars expr var_heap # var_heap = foldSt (\{tv_free_var={fv_info_ptr},tv_type} -> writePtr fv_info_ptr (VI_BoundVar tv_type)) bound_vars var_heap |