diff options
| author | johnvg | 2013-04-10 11:53:21 +0000 |
|---|---|---|
| committer | johnvg | 2013-04-10 11:53:21 +0000 |
| commit | fede6457b08da649d4e4cecc53625fa9abf0f855 (patch) | |
| tree | d1d366e841ba46e03508863fdb1c8b20217fb6fe /frontend | |
| parent | optimize fusion, reduce memory used of fusion (from iTask branch): (diff) | |
allow =: again for generic functions without arguments
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@2233 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend')
| -rw-r--r-- | frontend/parse.icl | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/frontend/parse.icl b/frontend/parse.icl index c9471ed..ceb527f 100644 --- a/frontend/parse.icl +++ b/frontend/parse.icl @@ -633,14 +633,10 @@ where //# pState = wantToken FunctionContext "type argument" GenericCloseToken pState # (args, pState) = parseList trySimplePattern pState + # has_args = isNotEmpty args || gcf_generic_info<>0 # args = [geninfo_arg : args] - - // must be EqualToken or HashToken or ??? - //# pState = wantToken FunctionContext "generic definition" EqualToken pState - //# pState = tokenBack pState # (ss_useLayout, pState) = accScanState UseLayout pState - # has_args = isNotEmpty args # localsExpected = has_args || isGlobalContext parseContext || ~ ss_useLayout # (rhs, _, pState) = wantRhs localsExpected (ruleDefiningRhsSymbol parseContext has_args) pState |