diff --git a/backendC/CleanCompilerSources/instructions.c b/backendC/CleanCompilerSources/instructions.c index c2e8b9fb6caed298faf1fee705e86dce98cee26e..3749dc8d7a8734a48b115815123230c3041fe7f3 100644 --- a/backendC/CleanCompilerSources/instructions.c +++ b/backendC/CleanCompilerSources/instructions.c @@ -1151,10 +1151,10 @@ static void GenABStackElemsForRecordDesc (StateS state) return; case RecordState: argstates = state.state_record_arguments; - FPutC ('(', OutFile); + FPutC ('{', OutFile); for (arity=0; arity < state.state_arity; ++arity) GenABStackElemsForRecordDesc (argstates[arity]); - FPutC (')', OutFile); + FPutC ('}', OutFile); return; case ArrayState: FPutC ('a', OutFile);