github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-01-18 09:02:39 +00:00
Code Issues Projects Releases Wiki Activity

Use symbolic constant for subr CAUSE-INTERRUPT switch/case rather than number (0222)

Browse Source
This commit is contained in:
Nick Briggs 2021-09-19 14:12:47 -07:00
parent 533c935e72
commit 9bb5a4298c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/subr.c
View File

@ -673,7 +673,7 @@ void OP_subrcall(int subr_no, int argnum) {
TopOfStack = with_symbol(args[0], args[1], args[2], args[3], args[4], args[5]);
break;
case 0222: /* Cause an interrupt to occur. Used by */
case sb_CAUSE_INTERRUPT: /* Cause an interrupt to occur. Used by */
/* Lisp INTERRUPTED to re-set an interrupt */
/* when it's uninterruptible. */
POP_SUBR_ARGS;