From 0ca0386f1d47f4e34656429f54bace0376e1044b Mon Sep 17 00:00:00 2001
From: johnvg
Date: Wed, 18 Apr 2007 11:04:20 +0000
Subject: add alternative for NewTypePatterns in function checkMacro

git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1677 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
---
 frontend/check.icl | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/frontend/check.icl b/frontend/check.icl
index 1c2a2f9..50ea4c4 100644
--- a/frontend/check.icl
+++ b/frontend/check.icl
@@ -1014,6 +1014,9 @@ instance checkMacro CasePatterns where
 		# (patterns, ea)
 			=	checkMacro topLevel patterns ea	
 		=	(BasicPatterns type patterns, ea)
+	checkMacro topLevel (NewTypePatterns type patterns) ea
+		# (patterns, ea) = checkMacro topLevel patterns ea	
+		= (NewTypePatterns type patterns, ea)
 	checkMacro topLevel (DynamicPatterns patterns) ea
 		# (patterns, ea)
 			=	checkMacro topLevel patterns ea	
-- 
cgit v1.2.3