diff options
| -rw-r--r-- | backendC/CleanCompilerSources/compiledefines.h | 2 | ||||
| -rw-r--r-- | frontend/parse.icl | 2 |
2 files changed, 1 insertions, 3 deletions
diff --git a/backendC/CleanCompilerSources/compiledefines.h b/backendC/CleanCompilerSources/compiledefines.h index f8c3a20..4078dfc 100644 --- a/backendC/CleanCompilerSources/compiledefines.h +++ b/backendC/CleanCompilerSources/compiledefines.h @@ -21,6 +21,6 @@ #define SA_RECOGNIZES_ABORT_AND_UNDEF 1 #define STRICT_LISTS 1 -#define BOXED_RECORDS 0 +#define BOXED_RECORDS 1 #undef KARBON diff --git a/frontend/parse.icl b/frontend/parse.icl index 971d2df..57cb157 100644 --- a/frontend/parse.icl +++ b/frontend/parse.icl @@ -1658,13 +1658,11 @@ where = case token of CurlyOpenToken -> want_record_type_rhs name False exi_vars pState -/* ExclamationToken # (token, pState) = nextToken TypeContext pState | token==CurlyOpenToken -> want_record_type_rhs name True exi_vars pState -> (PD_Type td, parseError "Record type" No ("after ! in definition of record type "+name+" { ") pState) -*/ /* ColonToken | isEmpty exi_vars -> (PD_Erroneous, parseError "Algebraic type" No "no colon, :," pState) |