From 5e9818433c582c6d5e389c04d8cf5b49015218a8 Mon Sep 17 00:00:00 2001
From: ronny
Date: Wed, 19 Dec 2001 12:12:31 +0000
Subject: bug fix for previous bug fix

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

(limited to 'frontend')

diff --git a/frontend/parse.icl b/frontend/parse.icl
index ef5b6fd..c9c9563 100644
--- a/frontend/parse.icl
+++ b/frontend/parse.icl
@@ -551,16 +551,16 @@ where
 
 		combine_args [arg]	= arg
 		combine_args args	= PE_List args
-	want_rhs_of_def parseContext (Yes (name, False), []) token pos pState
-		# code_allowed  = token == EqualToken
-		| isIclContext parseContext && isLocalContext parseContext && (token == EqualToken || token == DefinesColonToken) &&
+	want_rhs_of_def parseContext (Yes (name, False), []) definingToken pos pState
+		# code_allowed  = definingToken == EqualToken
+		| isIclContext parseContext && isLocalContext parseContext && (definingToken == EqualToken || definingToken == DefinesColonToken) &&
 		/* PK isLowerCaseName name.id_name && */ not (isClassOrInstanceDefsContext parseContext)
 		  	# (token, pState) = nextToken FunctionContext pState
 			| code_allowed && token == CodeToken
 				# (rhs, pState) = wantCodeRhs pState
 				= (PD_Function pos name False [] rhs (FK_Function cNameNotLocationDependent), pState)
 			# pState = tokenBack pState
-			# (rhs, _, pState) = wantRhs False (RhsDefiningSymbolExact token) (tokenBack pState)
+			# (rhs, _, pState) = wantRhs False (RhsDefiningSymbolExact definingToken) (tokenBack pState)
 			| token == EqualToken
 				= (PD_Function pos name False [] rhs FK_NodeDefOrFunction, pState)
 			// otherwise // token == DefinesColonToken
-- 
cgit v1.2.3