make aio error object consistent with interface

shikokuchuo · Nov 18, 2023 · 218faa2 · 218faa2
1 parent d9f67c0
commit 218faa2
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/aio.c b/src/aio.c
@@ -37,12 +37,13 @@ typedef struct nano_cv_duo_s {
 
 static SEXP mk_error_data(const int xc) {
 
-  const char *names[] = {xc < 0 ? "result" : "data", ""};
+  const char *names[] = {xc < 0 ? "result" : "data", "value", ""};
   SEXP out = PROTECT(Rf_mkNamed(VECSXP, names));
   SEXP err = Rf_ScalarInteger(abs(xc));
   SET_ATTRIB(err, nano_error);
   SET_OBJECT(err, 1);
   SET_VECTOR_ELT(out, 0, err);
+  SET_VECTOR_ELT(out, 1, err);
   UNPROTECT(1);
   return out;