diff options
| author | martinw | 2000-01-13 15:08:02 +0000 |
|---|---|---|
| committer | martinw | 2000-01-13 15:08:02 +0000 |
| commit | 053a6009a360fc6d56eb1afe0171e70ca4f902c6 (patch) | |
| tree | 565cb63a5d0c7e66e11cbaec3f8bad5957e576a9 /frontend/syntax.icl | |
| parent | function isNotEmpty added (diff) | |
- check.icl: solved check-bug-11:
Check Error [case_bug.icl,18,f]:"_" illegal combination of patterns
f t = case t of {(a,2) -> 1; _ | False -> 2; (a,b) -> 3;};
- typesupport.icl: small typo
- trans.icl: small optimisation
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@75 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/syntax.icl')
| -rw-r--r-- | frontend/syntax.icl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/frontend/syntax.icl b/frontend/syntax.icl index a4a7370..53c5096 100644 --- a/frontend/syntax.icl +++ b/frontend/syntax.icl @@ -415,7 +415,7 @@ cIsALocalVar :== False | AP_Basic !BasicValue OptionalVariable | AP_Dynamic !AuxiliaryPattern !DynamicType !OptionalVariable | AP_Constant !AP_Kind !(Global DefinedSymbol) !Priority - | AP_WildCard OptionalVariable + | AP_WildCard !VarInfoPtr !OptionalVariable | AP_Empty !Ident :: AP_Kind = APK_Constructor !Index | APK_Macro @@ -1295,7 +1295,7 @@ where instance <<< CasePatterns where - (<<<) file (BasicPatterns type patterns) = file <<< patterns + (<<<) file (BasicPatterns type patterns) = file <<< " " <<<patterns (<<<) file (AlgebraicPatterns type patterns) = file <<< patterns (<<<) file (DynamicPatterns patterns) = file <<< patterns (<<<) file NoPattern = file @@ -1668,7 +1668,7 @@ where instance <<< OptGuardedAlts where - (<<<) file (GuardedAlts guarded_exprs def_expr) = file <<<guarded_exprs <<< def_expr + (<<<) file (GuardedAlts guarded_exprs def_expr) = file <<< guarded_exprs <<< def_expr (<<<) file (UnGuardedExpr unguarded_expr) = file <<< unguarded_expr instance <<< ExprWithLocalDefs |