From 5ea2589b3dbef6272cbb3884ed308403d134108c Mon Sep 17 00:00:00 2001
From: johnvg
Date: Fri, 13 Jan 2006 14:58:57 +0000
Subject: remove some unused code

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

(limited to 'frontend')

diff --git a/frontend/parse.icl b/frontend/parse.icl
index 29d3bec..2eb7f2b 100644
--- a/frontend/parse.icl
+++ b/frontend/parse.icl
@@ -598,7 +598,7 @@ where
 		# (type_cons, pState) = get_type_cons type pState
 			with
 				get_type_cons (TA type_symb []) pState
-						= (TypeConsSymb type_symb, pState)							
+					= (TypeConsSymb type_symb, pState)
 				get_type_cons (TA type_symb _) pState
 					# pState = parseError "generic type, no constructor arguments allowed" No " |}" pState
 					= (abort "no TypeCons", pState)
@@ -707,20 +707,6 @@ where
 			foreign_export_error s pState
 				= (True,PD_Erroneous,tokenBack (parseError "foreign export" No s pState))
 
-/*
-isEqualToken :: !Token -> Bool
-isEqualToken EqualToken			= True
-isEqualToken _					= False
-*/
-/*
-isRhsStartToken :: !ParseContext !Token -> Bool
-isRhsStartToken parseContext EqualToken			= True
-isRhsStartToken parseContext ColonDefinesToken	= isGlobalOrClassOrInstanceDefsContext parseContext
-isRhsStartToken parseContext DefinesColonToken	= True
-isRhsStartToken parseContext DoubleArrowToken	= True // PK
-isRhsStartToken parseContext _					= False
-*/
-
 optionalSpecials :: !ParseState -> (!Specials, !ParseState)
 optionalSpecials pState
 	# (token, pState) = nextToken TypeContext pState
-- 
cgit v1.2.3