From 495f67ae3dc268ccf3ddf0f9bbcca3d358d85d19 Mon Sep 17 00:00:00 2001
From: ronny
Date: Wed, 25 Jul 2001 15:29:02 +0000
Subject: put back look-a-head token after class in import list if its not '('

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

diff --git a/frontend/parse.icl b/frontend/parse.icl
index 74c0f13..ea61722 100644
--- a/frontend/parse.icl
+++ b/frontend/parse.icl
@@ -978,7 +978,7 @@ want_2_0_import_declaration token pState
 				| token == OpenToken
 				  	#	(members, pState)			= want_names want IC_Expression CloseToken pState
 				  	->	(ID_Class { ii_ident = class_id, ii_extended = ii_extended } (Yes members), pState)
-				  	->	(ID_Class { ii_ident = class_id, ii_extended = ii_extended } No, pState)
+				  	->	(ID_Class { ii_ident = class_id, ii_extended = ii_extended } No, tokenBack pState)
 			InstanceToken
 				#	(class_name, pState)	= want pState
 //					(ii_extended, pState)	= optional_extension pState // MW: removed but still not ok
-- 
cgit v1.2.3