lin_xs_cli: exit with failure if main() promise is rejected

dckc · Jan 11, 2020 · 6e29865 · 6e29865
1 parent c9423d1
commit 6e29865
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/xs/platforms/lin_xs_cli.c b/xs/platforms/lin_xs_cli.c
@@ -22,6 +22,7 @@
 
 extern void fxRunPromiseJobs(void* machine);
 extern txS1 fxPromiseIsPending(xsMachine* the, xsSlot* promise);
+extern txS1 fxPromiseIsRejected(xsMachine* the, xsSlot* promise);
 
 void fxAbort(xsMachine* the)
 {
@@ -65,6 +66,9 @@ int main(int argc, char* argv[])  // here
 					}
 					g_main_context_iteration(main, TRUE);
 				}
+				if (fxPromiseIsRejected(the, &xsVar(2))) {
+					error = 1;
+				}
 				g_main_context_unref(main);
 			}
 			xsCatch {