diff options
| author | ronny | 2003-12-23 10:00:18 +0000 |
|---|---|---|
| committer | ronny | 2003-12-23 10:00:18 +0000 |
| commit | 9be755385072fcdeb685218237e23b481aed0e4b (patch) | |
| tree | 2d9c8f1c33d05d1590d0a42c5fe33e6fe3377322 /frontend | |
| parent | use class_ident in typeToClass to prevent ';' after class name (diff) | |
bug fix: don't accept lhs patterns between function name and double colon
for example reject: f blah [blah] blah :: Int -> Int
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1442 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend')
| -rw-r--r-- | frontend/parse.icl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/frontend/parse.icl b/frontend/parse.icl index 22c45b5..f89af28 100644 --- a/frontend/parse.icl +++ b/frontend/parse.icl @@ -506,7 +506,7 @@ where = (False, abort "name", False, tokenBack pState) want_rhs_of_def :: !ParseContext !(Optional (Ident, Bool), [ParsedExpr]) !Token !Position !ParseState -> (ParsedDefinition, !ParseState) - want_rhs_of_def parseContext (opt_name, args) DoubleColonToken pos pState + want_rhs_of_def parseContext (opt_name, []) DoubleColonToken pos pState # (name, is_infix, pState) = check_name_and_fixity opt_name cHasNoPriority pState (tspec, pState) = want pState // SymbolType | isDclContext parseContext |