github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-01-21 01:57:49 +00:00
Code Issues Projects Releases Wiki Activity

Modifies LISPFINISH subr to use 2nd argument, if present, for exit status (#525)

Browse Source 
Redesign of exit status handling, instead of overloading the FAST flag
of (LOGOUT fast), add an optional 2nd argument, EXITSTATUS.

Retains compatability, with behavior unchanged, between new emulator
and older sysouts which do not pass the second argument to LISPFINISH.

Newer sysouts, which pass the 2nd argument, will continue to work with
older emulators though will not get the exit status set.
This commit is contained in:
Nick Briggs 2025-01-20 12:24:44 -08:00 committed by GitHub
parent 31bb14b9d7
commit 3c4d9f5393
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/subr.c
View File

@ -416,11 +416,11 @@ void OP_subrcall(int subr_no, int argnum) {
case sb_LISP_FINISH: {
int status;
POP_SUBR_ARGS;
if (argnum == 0 || args[0] == NIL || args[0] == ATOM_T)
lisp_finish(EXIT_SUCCESS);
N_GETNUMBER(args[0], status, exit_fail);
if (argnum == 0 || argnum == 1 || (argnum == 2 && args[1] == NIL)) lisp_finish(EXIT_SUCCESS);
if (argnum > 2) lisp_finish(EXIT_FAILURE);
N_GETNUMBER(args[1], status, exit_fail);
lisp_finish(status);
exit_fail:
exit_fail:
lisp_finish(EXIT_FAILURE);
break;
}