From fede6457b08da649d4e4cecc53625fa9abf0f855 Mon Sep 17 00:00:00 2001
From: johnvg
Date: Wed, 10 Apr 2013 11:53:21 +0000
Subject: allow =: again for generic functions without arguments

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

diff --git a/frontend/parse.icl b/frontend/parse.icl
index c9471ed..ceb527f 100644
--- a/frontend/parse.icl
+++ b/frontend/parse.icl
@@ -633,14 +633,10 @@ where
 
 		//# pState = wantToken FunctionContext "type argument" GenericCloseToken pState
 		# (args, pState) = parseList trySimplePattern pState
+	  	# has_args = isNotEmpty args || gcf_generic_info<>0
 		# args = [geninfo_arg : args]
-
-		// must be EqualToken or HashToken or ???
-		//# pState = wantToken FunctionContext "generic definition" EqualToken pState
-		//# pState = tokenBack pState
 	
 	  	# (ss_useLayout, pState) = accScanState UseLayout pState
-	  	# has_args = isNotEmpty args
 	    # localsExpected = has_args || isGlobalContext parseContext || ~ ss_useLayout
 	    # (rhs, _, pState) = wantRhs localsExpected (ruleDefiningRhsSymbol parseContext has_args) pState
 
-- 
cgit v1.2.3