diff options
| author | ronny | 2001-10-04 10:17:38 +0000 |
|---|---|---|
| committer | ronny | 2001-10-04 10:17:38 +0000 |
| commit | e3fbc2240040fab27aee667a3924e298f572b7d3 (patch) | |
| tree | 03f98f745d270f568cafa553f02e987d75c65ca8 /frontend/convertcases.icl | |
| parent | made merge_basic_pattern_with_patterns local function of merge_basic_patterns (diff) | |
removed unused function makeCase
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@826 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/convertcases.icl')
| -rw-r--r-- | frontend/convertcases.icl | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/frontend/convertcases.icl b/frontend/convertcases.icl index 3bf7114..aa1682e 100644 --- a/frontend/convertcases.icl +++ b/frontend/convertcases.icl @@ -1159,18 +1159,6 @@ splitGuards (BasicPatterns basicType patterns) splitGuards (OverloadedListPatterns type decons_expr patterns) = [OverloadedListPatterns type decons_expr [pattern] \\ pattern <- patterns] -makeCase :: Expression CasePatterns -> Expression -makeCase expr guard - = Case - { case_expr = expr - , case_guards = guard - , case_default = No - , case_ident = No - , case_info_ptr = nilPtr - , case_explicit=False - , case_default_pos= NoPos - } - :: TypedVariable = { tv_free_var :: !FreeVar , tv_type :: !AType |