From 029d7873f260c86863d50fb130da997c28790538 Mon Sep 17 00:00:00 2001
From: johnvg
Date: Fri, 31 Aug 2001 15:19:12 +0000
Subject: 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
---
 backend/backendpreprocess.icl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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}
-- 
cgit v1.2.3