From 3e217b94c5438e79ccdb9baae87d99a6ced7f039 Mon Sep 17 00:00:00 2001 From: Anthony Cook Date: Wed, 12 Feb 2025 03:43:55 -0600 Subject: [PATCH] Add error reporting to CALL/INFO object --- src/core/n-io.c | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/src/core/n-io.c b/src/core/n-io.c index c5a44cc1a5..c973b33ae9 100644 --- a/src/core/n-io.c +++ b/src/core/n-io.c @@ -899,6 +899,15 @@ static REBSER *Read_All_File(char *fname) SET_INTEGER(val, exit_code); } + // based on f-stubs Make_OS_Error() + if (r != 0) { + REBCHR str[100]; + OS_FORM_ERROR(r, str, 100); + + val = Append_Frame(obj, NULL, SYM_ERROR); + SET_STRING(val, Copy_OS_Str(str, (REBINT)LEN_STR(str))); + } + SET_OBJECT(D_RET, obj); return R_RET; }