Commit d7318ae6 authored by John van Groningen's avatar John van Groningen
Browse files

enable boxed records

parent 8eac943c
......@@ -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
......@@ -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)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment