Commit 65665ae3 authored by John van Groningen's avatar John van Groningen
Browse files

add missing ()'s in test for strict list structor

parent fbf2ab7e
......@@ -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){
......
......@@ -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);
......
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