diff options
| -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} |