Commit 16674b82 authored by John van Groningen's avatar John van Groningen
Browse files

fix bug in printing brackets in function types

parent 5554e080
...@@ -539,10 +539,7 @@ static void PrintNode (TypeNode node, Bool brackets, Bool strict_context, Bool p ...@@ -539,10 +539,7 @@ static void PrintNode (TypeNode node, Bool brackets, Bool strict_context, Bool p
{ TypeNode arg_type_node = node -> type_node_arguments -> type_arg_node; { TypeNode arg_type_node = node -> type_node_arguments -> type_arg_node;
if (brackets) if (brackets)
FPutC ('(', StdListTypes); FPutC ('(', StdListTypes);
if ((! arg_type_node -> type_node_is_var) && arg_type_node -> type_node_symbol -> symb_kind == fun_type) PrintArgument (node -> type_node_arguments, cPrintBrackets, cNotInAStrictContext, cDoPrintAttribute);
PrintArgument (node -> type_node_arguments, cPrintBrackets, cNotInAStrictContext, cDoPrintAttribute);
else
PrintArgument (node -> type_node_arguments, cDontPrintBrackets, cNotInAStrictContext, cDoPrintAttribute);
FPutS (" -> ", StdListTypes); FPutS (" -> ", StdListTypes);
PrintArgument (node -> type_node_arguments -> type_arg_next, cDontPrintBrackets, cNotInAStrictContext, cDoPrintAttribute); PrintArgument (node -> type_node_arguments -> type_arg_next, cDontPrintBrackets, cNotInAStrictContext, cDoPrintAttribute);
if (brackets) if (brackets)
......
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