From 14d38dd9b72e18fdfcc89212a99366419ea0d99c Mon Sep 17 00:00:00 2001
From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Tue, 16 Jun 2015 19:01:19 -0700
Subject: [PATCH] debug.c: Add a get-interrupt-code primitive.

---
 src/microcode/debug.c | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/src/microcode/debug.c b/src/microcode/debug.c
index 7c31f9a09..2c9d01f59 100644
--- a/src/microcode/debug.c
+++ b/src/microcode/debug.c
@@ -1166,3 +1166,9 @@ DEFINE_PRIMITIVE("SET-DEBUG-FLAGS!", Prim_set_debug_flags, 2, 2,
   set_flag ((arg_integer (1)), (BOOLEAN_ARG (2)));
   PRIMITIVE_RETURN (UNSPECIFIC);
 }
+
+DEFINE_PRIMITIVE("GET-INTERRUPT-CODE", Prim_get_interrupt_code, 0, 0, "")
+{
+  PRIMITIVE_HEADER (0);
+  PRIMITIVE_RETURN (LONG_TO_FIXNUM (GET_INT_CODE));
+}
-- 
2.25.1