Commit f147d367 authored by johnvg@science.ru.nl's avatar johnvg@science.ru.nl
Browse files

initialise field node_state in function create_match_function

parent 5cc5a022
...@@ -2499,6 +2499,7 @@ SymbDef create_match_function (SymbolP constructor_symbol,int result_arity,int n ...@@ -2499,6 +2499,7 @@ SymbDef create_match_function (SymbolP constructor_symbol,int result_arity,int n
} }
rhs_root=NewNode (TupleSymbol,NULL,result_arity); rhs_root=NewNode (TupleSymbol,NULL,result_arity);
rhs_root->node_state=StrictState;
rhs_arg_p=&rhs_root->node_arguments; rhs_arg_p=&rhs_root->node_arguments;
arg2=NewArgument (rhs_root); arg2=NewArgument (rhs_root);
......
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