From 66d737d399ffb1714f3613f5da1d23ae3c780c7d Mon Sep 17 00:00:00 2001
From: pieter
Date: Thu, 7 Oct 1999 13:34:23 +0000
Subject: end of cases and root expressions

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

(limited to 'frontend')

diff --git a/frontend/parse.icl b/frontend/parse.icl
index 78c3780..6b1f4da 100644
--- a/frontend/parse.icl
+++ b/frontend/parse.icl
@@ -2483,6 +2483,9 @@ wantEndRootExpression pState=:{ps_skipping}
 				BarToken			->	tokenBack pState
 				InToken		 		->	tokenBack pState
 				CloseToken	 		->	tokenBack pState
+				SquareCloseToken	->	tokenBack pState
+				CommaToken	 		->	tokenBack pState
+				ColonToken	 		->	tokenBack pState
 				(SeqLetToken _)		->	tokenBack pState
 				SemicolonToken		#	(token, pState) = nextToken FunctionContext pState
 									->	case token of
@@ -2587,6 +2590,8 @@ wantEndCase pState
 			CloseToken			->	tokenBack (appScanState dropOffsidePosition pState)
 			SquareCloseToken	->	tokenBack (appScanState dropOffsidePosition pState)
 			SemicolonToken		->	tokenBack (appScanState dropOffsidePosition pState)
+			CommaToken			->	tokenBack (appScanState dropOffsidePosition pState)
+			ColonToken			->	tokenBack (appScanState dropOffsidePosition pState)
 			_					->	parseError "case expression" (Yes token) "end of case with layout" pState
 	// ~ ss_useLayout
 	| token == CurlyCloseToken
-- 
cgit v1.2.3