Fix http_get/3

README.md

@@ -482,6 +482,7 @@ Non-standard predicates
 	cpu_time/1                  # cpu_time(-Var) elapsed CPU time in secs as float
 
 	current_key/1
+	string_concat/3				# string_concat(+string,+string,?string)
 	string_length/2
 	sleep/1                     # sleep time in secs
 	split/4                     # split(+string,+sep,?left,?right)

library/http.pl

@@ -26,10 +26,10 @@
 	getline(S, Line),
 	hex_chars(Len, Line),
 	Len > 0,
+	!,
 	bread(S, Len, Tmp2),
 	getline(S, _),
-	append(Tmp, Tmp2, Tmp3),
-	!,
+	string_concat(Tmp, Tmp2, Tmp3),
 	read_chunks(S, Tmp3, Data).
 read_chunks(_, Data, Data).
 

src/bif_predicates.c

@@ -5448,6 +5448,23 @@ static bool bif_call_nth_2(query *q)
 	return true;
 }
 
+static bool bif_string_concat_3(query *q)
+{
+	GET_FIRST_ARG(p1,atom);
+	GET_NEXT_ARG(p2,atom);
+	GET_NEXT_ARG(p3,atom_or_var);
+	SB(pr);
+	SB_strcpy(pr, C_STR(q, p1));
+	SB_strcat(pr, C_STR(q, p2));
+	const char *src = SB_cstr(pr);
+	cell tmp;
+	make_string(&tmp, src);
+	SB_free(pr);
+	int ok  = unify(q, p3, p3_ctx, &tmp, q->st.curr_frame);
+	unshare_cell(&tmp);
+	return ok;
+}
+
 static bool bif_string_length_2(query *q)
 {
 	GET_FIRST_ARG(p1,atom_or_list_or_nil);
@@ -6661,6 +6678,7 @@ builtins g_other_bifs[] =
 	{"limit", 2, bif_limit_2, "+integer,:callable", false, false, BLAH},
 	{"offset", 2, bif_offset_2, "+integer,+callable", false, false, BLAH},
 	{"unifiable", 3, bif_sys_unifiable_3, "+term,+term,-list", false, false, BLAH},
+	{"string_concat", 3, bif_string_concat_3, "+string,+string,?string", false, false, BLAH},
 	{"string_length", 2, bif_string_length_2, "+string,?integer", false, false, BLAH},
 	{"crypto_n_random_bytes", 2, bif_crypto_n_random_bytes_2, "+integer,-codes", false, false, BLAH},
 	{"cyclic_term", 1, bif_cyclic_term_1, "+term", false, false, BLAH},