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