From 7583bc84a51c87f5b068721f75e487f5a2effcdb Mon Sep 17 00:00:00 2001
From: ronny
Date: Wed, 12 Dec 2001 15:53:21 +0000
Subject: inlined simple code_block_allowed function

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

(limited to 'frontend')

diff --git a/frontend/parse.icl b/frontend/parse.icl
index 8b38c9d..68877e5 100644
--- a/frontend/parse.icl
+++ b/frontend/parse.icl
@@ -565,7 +565,7 @@ where
 				// otherwise
 					= (PD_NodeDef pos (PE_Ident name) rhs, pState)
 	want_rhs_of_def parseContext (Yes (name, is_infix), args) token pos pState
-		# code_allowed  = code_block_allowed token
+		# code_allowed  = token == EqualToken || token == DoubleArrowToken
 		  (token, pState) = nextToken FunctionContext pState
 		| isIclContext parseContext && token == CodeToken
 			# (rhs, pState) = wantCodeRhs pState
@@ -585,10 +585,6 @@ where
 			FK_Caf | isNotEmpty args
 				->	(PD_Function pos name is_infix []   rhs fun_kind, parseError "CAF" No "No arguments for a CAF" pState)
 			_	->	(PD_Function pos name is_infix args rhs fun_kind, pState)
-	where
-		code_block_allowed token
-			=	token == EqualToken || token == DoubleArrowToken
-
 	check_name_and_fixity No hasprio pState
 		= (erroneousIdent, False, parseError "Definition" No "identifier" pState)
 	check_name_and_fixity (Yes (name,is_infix)) hasprio pState
-- 
cgit v1.2.3