Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 05:39:18 +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); res = run_main(argc, argv);
if (sexp_fixnump(res)) { if (sexp_fixnump(res)) {
int code = sexp_unbox_fixnum(res); int code = sexp_unbox_fixnum(res);
#ifdef PLAN9
if (code == 0) { if (code == 0) {
exit_success(); exit_success();
} else { } else {
exit_failure(); exit_failure();
} }
#else
return code;
#endif
} else if (res == SEXP_FALSE) { } else if (res == SEXP_FALSE) {
exit_failure(); exit_failure();
} else { } else {