diff options
| -rw-r--r-- | backendC/CleanCompilerSources/codegen1.c | 2 | ||||
| -rw-r--r-- | backendC/CleanCompilerSources/codegen2.c | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/backendC/CleanCompilerSources/codegen1.c b/backendC/CleanCompilerSources/codegen1.c index 7e20ee0..f55d058 100644 --- a/backendC/CleanCompilerSources/codegen1.c +++ b/backendC/CleanCompilerSources/codegen1.c @@ -2385,7 +2385,7 @@ SymbDef create_match_function (SymbolP constructor_symbol,int constructor_arity, rhs_arg_p=&rhs_root->node_arguments; #if STRICT_LISTS - if (constructor_symbol->symb_kind==cons_symb && constructor_symbol->symb_head_strictness>1 || constructor_symbol->symb_tail_strictness){ + if (constructor_symbol->symb_kind==cons_symb && (constructor_symbol->symb_head_strictness>1 || constructor_symbol->symb_tail_strictness)){ constructor_symbol->symb_def->sdef_constructor->cl_state_p; if (constructor_symbol->symb_head_strictness>1){ diff --git a/backendC/CleanCompilerSources/codegen2.c b/backendC/CleanCompilerSources/codegen2.c index 00cc491..a416fca 100644 --- a/backendC/CleanCompilerSources/codegen2.c +++ b/backendC/CleanCompilerSources/codegen2.c @@ -3903,7 +3903,7 @@ void FillMatchNode (Node node,int *asp_p,int *bsp_p,NodeId update_node_id,CodeGe if (!symbol_arity_eq_one){ #if STRICT_LISTS - if (symbol->symb_kind==cons_symb && symbol->symb_head_strictness>1 || symbol->symb_tail_strictness) + if (symbol->symb_kind==cons_symb && (symbol->symb_head_strictness>1 || symbol->symb_tail_strictness)) strict_constructor=1; #endif new_match_sdef=create_match_function (symbol,node->node_arity,strict_constructor); |