From 6fefdc2bdbf518c1c22f6a130bb803abe9f174d7 Mon Sep 17 00:00:00 2001
From: johnvg
Date: Thu, 2 Aug 2012 11:08:38 +0000
Subject: add pattern match test using =: in expressions, add constructors
 PE_Matches and IsConstructor in module syntax

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

(limited to 'frontend/partition.icl')

diff --git a/frontend/partition.icl b/frontend/partition.icl
index 25f2ef3..f10ccc3 100644
--- a/frontend/partition.icl
+++ b/frontend/partition.icl
@@ -207,7 +207,6 @@ where
 	, pi_collect``			:: !.CollectState
 	}
 
-//:: Marks	:== {# Int}
 :: Marks	:== {# Mark}
 :: Mark		= { m_fun :: !Int, m_mark :: !Int}
 
@@ -426,6 +425,8 @@ where
 		= fc_state
 	find_calls fc_info (MatchExpr _ expr) fc_state
 		= find_calls fc_info expr fc_state
+	find_calls fc_info (IsConstructor expr _ _ _ _ _) fc_state
+		= find_calls fc_info expr fc_state
 	find_calls fc_info EE fc_state
 		= fc_state
 	find_calls fc_info (NoBind _) fc_state
-- 
cgit v1.2.3