Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
clean-compiler-and-rts
compiler
Commits
3ed1243f
Commit
3ed1243f
authored
Jan 13, 2006
by
John van Groningen
Browse files
remove some unused code
parent
5ca35747
Changes
1
Hide whitespace changes
Inline
Side-by-side
frontend/parse.icl
View file @
3ed1243f
...
...
@@ -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
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment