diff options
| author | johnvg | 2001-09-10 11:39:47 +0000 |
|---|---|---|
| committer | johnvg | 2001-09-10 11:39:47 +0000 |
| commit | 297ed3760678f90c3407b2fbca54c1eb39cf0873 (patch) | |
| tree | afc71aa87ea6fdc311871e9356a1802a980b281a | |
| parent | module ownership comment (diff) | |
fix bug in printing brackets in function types
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@764 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
| -rw-r--r-- | backendC/CleanCompilerSources/typeconv_2.c | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/backendC/CleanCompilerSources/typeconv_2.c b/backendC/CleanCompilerSources/typeconv_2.c index 88d0bc8..d63667e 100644 --- a/backendC/CleanCompilerSources/typeconv_2.c +++ b/backendC/CleanCompilerSources/typeconv_2.c @@ -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; if (brackets) 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); - else - PrintArgument (node -> type_node_arguments, cDontPrintBrackets, cNotInAStrictContext, cDoPrintAttribute); + PrintArgument (node -> type_node_arguments, cPrintBrackets, cNotInAStrictContext, cDoPrintAttribute); FPutS (" -> ", StdListTypes); PrintArgument (node -> type_node_arguments -> type_arg_next, cDontPrintBrackets, cNotInAStrictContext, cDoPrintAttribute); if (brackets) |