From 08d95742d1ddee6d6586a8a64afcbf40c8b5792e Mon Sep 17 00:00:00 2001
From: martinw
Date: Fri, 20 Apr 2001 08:00:45 +0000
Subject: bugfix: the parser did not accept   from m import :: :+:

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

(limited to 'frontend')

diff --git a/frontend/parse.icl b/frontend/parse.icl
index 18a0083..02a07e1 100644
--- a/frontend/parse.icl
+++ b/frontend/parse.icl
@@ -884,11 +884,11 @@ want_2_0_import_declaration token pState
 // ..MW5
 		= case token of
 			DoubleColonToken
-				# (name, pState)				= wantUpperCaseName "import type" pState
+				# (name, pState)				= wantConstructorName "import type" pState
 				  (type_id, pState)				= stringToIdent name IC_Type pState
 				  (ii_extended, token, pState)	= optional_extension_with_next_token pState
 				| token == OpenToken
-				  	#	(conses, pState)			= want_names (wantUpperCaseName "import type (..)") IC_Expression CloseToken pState
+				  	#	(conses, pState)			= want_names (wantConstructorName "import type (..)") IC_Expression CloseToken pState
 				  	->	(ID_Type { ii_ident = type_id, ii_extended = ii_extended } (Yes conses), pState)
 				| token == CurlyOpenToken
 				  	#	(fields, pState) = want_names (wantLowerCaseName "import record fields") (IC_Field type_id) CurlyCloseToken pState
@@ -3108,7 +3108,7 @@ wantConstructorName string pState
 			| isUpperCaseName name || isFunnyIdName name
 				-> (name, pState)
 		_
-			-> ("", parseError string (Yes token) "upper case ident" pState)
+			-> ("", parseError string (Yes token) "upper case or funny ident" pState)
 
 /*
 isTypeStartToken :: ! Token -> Bool
-- 
cgit v1.2.3