diff options
-rw-r--r-- | frontend/parse.icl | 3 | ||||
-rw-r--r-- | frontend/scanner.icl | 2 |
2 files changed, 3 insertions, 2 deletions
diff --git a/frontend/parse.icl b/frontend/parse.icl index f008f38..57dfa52 100644 --- a/frontend/parse.icl +++ b/frontend/parse.icl @@ -466,7 +466,8 @@ where # (token, pState) = nextToken FunctionContext pState = case token of GenericOpenToken // generic function - # (type, pState) = wantType pState + //# (type, pState) = wantType pState + # (ok, {at_type=type}, pState) = trySimpleType TA_None pState # (ident, pState) = stringToIdent name (IC_GenericCase type) pState # (type_CONS_ident, pState) = stringToIdent "CONS" IC_Type pState # (type_FIELD_ident, pState)= stringToIdent "FIELD" IC_Type pState diff --git a/frontend/scanner.icl b/frontend/scanner.icl index 22e2416..46650d5 100644 --- a/frontend/scanner.icl +++ b/frontend/scanner.icl @@ -849,7 +849,7 @@ CheckTypeContext s input "Dynamic" -> (DynamicTypeToken , input) "special" -> (SpecialToken , input) "from" -> (FromToken , input) - "of" -> (GenericOfToken , input) // AA + "of" -> (OfToken , input) // AA s -> CheckEveryContext s input CheckFunctContext :: !String !Input -> (!Token, !Input) |