From b34937d197a0a9ab8ec046428e2801673fe0996f Mon Sep 17 00:00:00 2001
From: johnvg
Date: Tue, 20 Nov 2007 12:01:47 +0000
Subject: remove is_pattern argument from functions want_array_assignments  and
 want_array_assignment

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

(limited to 'frontend')

diff --git a/frontend/parse.icl b/frontend/parse.icl
index 593e320..b850f4a 100644
--- a/frontend/parse.icl
+++ b/frontend/parse.icl
@@ -3352,7 +3352,7 @@ wantRecordOrArrayExp is_pattern pState
 	| is_pattern
 		# (token, pState) = nextToken FunctionContext pState
 		| token == SquareOpenToken
-			# (elems, pState) =  want_array_assignments cIsAPattern pState
+			# (elems, pState) =  want_array_assignments pState
 			= (PE_ArrayPattern elems, wantToken FunctionContext "array selections in pattern" CurlyCloseToken pState)
 		| token == CurlyCloseToken
 			= (PE_Empty, parseError "record or array pattern" No "Array denotation not" pState)
@@ -3746,19 +3746,19 @@ where
 	want_record_or_array_update token expr pState
 		= want_update NoRecordName expr token pState
 
-	want_array_assignments is_pattern pState
-		# (assign, pState) = want_array_assignment is_pattern pState
+	want_array_assignments pState
+		# (assign, pState) = want_array_assignment pState
 		  (token, pState) = nextToken FunctionContext pState
 		| token == CommaToken
 			# pState = wantToken FunctionContext "array assignments" SquareOpenToken pState
-			  (assigns, pState) = want_array_assignments is_pattern pState 
+			  (assigns, pState) = want_array_assignments pState 
 			= ([ assign : assigns ], pState)
 			= ([ assign ], tokenBack pState)
 	where
 		want_array_assignment is_pattern pState
 			# (index_exprs, pState) = want_index_exprs pState
 			  pState = wantToken FunctionContext "array assignment" EqualToken pState
-			  (pattern_exp, pState) = wantExpression is_pattern pState
+			  (pattern_exp, pState) = wantExpression cIsAPattern pState
 			= ({bind_dst = index_exprs, bind_src = pattern_exp}, pState)
 
 		want_index_exprs pState
-- 
cgit v1.2.3