WIP

trealla-prolog · Jan 20, 2025 · 5a23e65 · 5a23e65
1 parent 0114335
commit 5a23e65
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/bif_format.c b/src/bif_format.c
@@ -750,9 +750,9 @@ static bool bif_format_3(query *q)
 
 	int n = get_stream(q, pstr);
 
-	if (n < 0) {
-		//return throw_error(q, pstr, pstr_ctx, "domain_error", "stream_or_alias");
-	} else {
+	if ((n < 0) && !is_compound(pstr)) {
+		return throw_error(q, pstr, pstr_ctx, "domain_error", "stream_or_alias");
+	} else if (!is_compound(pstr)) {
 		stream *str = &q->pl->streams[n];
 
 		if (!strcmp(str->mode, "read"))