Fix lack of closing brace (was parenthesis instead), re issue #280

trealla-prolog · Jul 23, 2023 · 4a91bb0 · 4a91bb0
1 parent 8999035
commit 4a91bb0
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/src/print.c b/src/print.c
@@ -1056,11 +1056,11 @@ ssize_t print_term_to_buf(query *q, char *dst, size_t dstlen, cell *c, pl_idx c_
 						q->parens = parens = true;
 				}
 
-				if (parens)
-					dst += snprintf(dst, dstlen, "%s", "(");
+				if (parens) dst += snprintf(dst, dstlen, "%s", "(");
 
-				if (q->max_depth && ((depth+1) >= q->max_depth)) {
+				if (q->max_depth && ((depth+(braces?0:1)) >= q->max_depth)) {
 					dst += snprintf(dst, dstlen, "...");
+					if (parens) dst += snprintf(dst, dstlen, "%s", ")");
 					dst += snprintf(dst, dstlen, "%s", braces&&!q->ignore_ops?"}":")");
 					q->last_thing = WAS_OTHER;
 					return dst - save_dst;

diff --git a/tests/tests/test093.expected b/tests/tests/test093.expected
@@ -1,6 +1,6 @@
 [[...|[...]]|_5]
 +_6- +_7
-+_6- +_7- +_8
+... - ... - +_8
 (-_9)* -_10
 []*[]*[]
 _6=:= -_7-1