From 9bb5a4298ce0be6561cc48672972aab8b9496124 Mon Sep 17 00:00:00 2001
From: Nick Briggs <nicholas.h.briggs@gmail.com>
Date: Sun, 19 Sep 2021 14:12:47 -0700
Subject: [PATCH] Use symbolic constant for subr CAUSE-INTERRUPT switch/case
 rather than number (0222)

---
 src/subr.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/subr.c b/src/subr.c
index eb2ea34..afe81db 100644
--- a/src/subr.c
+++ b/src/subr.c
@@ -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;