diff options
| author | johnvg | 2001-08-31 15:19:12 +0000 |
|---|---|---|
| committer | johnvg | 2001-08-31 15:19:12 +0000 |
| commit | 029d7873f260c86863d50fb130da997c28790538 (patch) | |
| tree | a7c9be418c0527377c44e5e5d3cc6fd993a14c4d /backend | |
| parent | new functions for strict and unboxed lists (diff) | |
added code for strict and unboxed lists
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@723 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'backend')
| -rw-r--r-- | backend/backendpreprocess.icl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/backend/backendpreprocess.icl b/backend/backendpreprocess.icl index a62bc10..2462600 100644 --- a/backend/backendpreprocess.icl +++ b/backend/backendpreprocess.icl @@ -88,7 +88,7 @@ instance sequence FunctionBody where sequence (TransformedBody transformedBody) = sequence transformedBody sequence body - = abort "preprocess (FunctionBody): unknown body" <<- body + = abort "preprocess (FunctionBody): unknown body"// <<- body // case test ... instance sequence TransformedBody where @@ -141,6 +141,8 @@ instance sequence CasePatterns where = sequence patterns sequence (BasicPatterns _ patterns) = sequence patterns + sequence (OverloadedListPatterns _ decons_expr patterns) + = sequence patterns instance sequence AlgebraicPattern where sequence {ap_vars, ap_expr} |