From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Wed, 17 Jun 2015 02:01:19 +0000 (-0700)
Subject: debug.c: Add a get-interrupt-code primitive.
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=14d38dd9b72e18fdfcc89212a99366419ea0d99c;p=mit-scheme.git

debug.c: Add a get-interrupt-code primitive.
---

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));
+}