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

Fix exit call on plan9/9front

Browse source 
* make sure exits is passed a nil on success
* make sure main exits with a proper exits call
This commit is contained in:
McKay Marston 2023-02-03 17:19:46 -08:00
parent 598dcad547
commit 0aa515730f
1 changed files with 8 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
main.c
View file

@ -25,10 +25,11 @@
#ifdef PLAN9
#define exit_failure() exits("ERROR")
#define exit_success() exits(nil)
#else
#define exit_failure() exit(70)
#endif
#define exit_success() exit(0)
#endif
#if SEXP_USE_MAIN_HELP
void sexp_usage(int err) {
@ -682,7 +683,12 @@ int main (int argc, char **argv) {
sexp_scheme_init();
res = run_main(argc, argv);
if (sexp_fixnump(res)) {
return sexp_unbox_fixnum(res);
int code = sexp_unbox_fixnum(res);
if (code == 0) {
exit_success();
} else {
exit_failure();
}
} else if (res == SEXP_FALSE) {
exit_failure();
} else {