Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-18 21:29:19 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

ifdef the return status so that non-plan9 systems get the real value

Browse source
This commit is contained in:
McKay Marston 2023-02-04 16:36:49 -08:00
parent 0aa515730f
commit 27071e6c8f
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
main.c
View file

@ -684,11 +684,15 @@ int main (int argc, char **argv) {
res = run_main(argc, argv);
if (sexp_fixnump(res)) {
int code = sexp_unbox_fixnum(res);
#ifdef PLAN9
if (code == 0) {
exit_success();
} else {
exit_failure();
}
#else
return code;
#endif
} else if (res == SEXP_FALSE) {
exit_failure();
} else {