sub_atom/5, re issue #627

trealla-prolog · Nov 13, 2024 · c4e2a8b · c4e2a8b
1 parent 465bb45
commit c4e2a8b
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/bif_predicates.c b/src/bif_predicates.c
@@ -1283,9 +1283,11 @@ static bool bif_iso_sub_string_5(query *q)
 	if (is_integer(p4) && is_negative(p4))
 		return throw_error(q, p4, p4_ctx, "domain_error", "not_less_than_zero");
 
+#if 0
 	if (!is_var(p1) && is_var(p2) && is_var(p3) && is_var(p4) && !is_var(p5)) {
 		return do_sub_atom(q, p1, p2, p2_ctx, p3, p3_ctx, p4, p4_ctx, p5);
 	}
+#endif
 
 	const size_t len_p1 = C_STRLEN_UTF8(p1);
 	size_t before = 0, len = 0, after = 0;