diff options
| author | johnvg | 2003-06-19 11:02:32 +0000 |
|---|---|---|
| committer | johnvg | 2003-06-19 11:02:32 +0000 |
| commit | d1b46be354d694322e6de0abe4826c78cf2a1d94 (patch) | |
| tree | e31ebd1d02fc9807b05f1a2435f8a57b77aef158 | |
| parent | bug fix: do not move a case inside an explicit case (diff) | |
enable boxed records
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1352 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
| -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) |