suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Chez Scheme: make default exit handler normal

Browse Source 
If a script uses `(exit 1)`, for example, the script should
exit with status 1.
This commit is contained in:
Matthew Flatt 2021-02-15 17:23:55 -07:00
parent b9ef307b30
commit 688094e622
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
racket/src/ChezScheme/c/prim5.c
View File

@ -1339,8 +1339,8 @@ static ptr s_set_collect_trip_bytes(n) ptr n; {
return Svoid; return Svoid;
} }
static void c_exit(UNUSED I32 status) { static void c_exit(I32 status) {
S_abnormal_exit(); exit(status);
} }
#if defined(__STDC__) || defined(USE_ANSI_PROTOTYPES) #if defined(__STDC__) || defined(USE_ANSI_PROTOTYPES)