Fix write option max_depth checking, re issue #250

trealla-prolog · Jul 10, 2023 · b755f99 · b755f99
1 parent 38ca5d4
commit b755f99
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/streams.c b/src/streams.c
@@ -2485,8 +2485,10 @@ bool parse_write_params(query *q, cell *c, pl_idx c_ctx, cell **vnames, pl_idx *
 
 		if (is_integer(c1) && (get_smallint(&c[1]) >= 0))
 			q->max_depth = get_smallint(&c[1]);
-		else
+		else {
 			throw_error(q, c, c_ctx, "domain_error", "write_option");
+			return false;
+		}
 	} else if (!CMP_STR_TO_CSTR(q, c, "fullstop")) {
 		if (is_var(c1)) {
 			throw_error(q, c1, c_ctx, "instantiation_error", "write_option");