Merge pull request #101 from acook/call-info-error

Add error message to CALL/INFO
Oldes · Feb 12, 2025 · a4b1b30 · a4b1b30
2 parents 96b13b8 + 3e217b9
commit a4b1b30
Showing 1 changed file with 9 additions and 0 deletions.
diff --git 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;
 	}