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

diff --git a/src/microcode/debug.c b/src/microcode/debug.c
index 7c31f9a0953bb64e9b9485a5f58ed20209d672ac..2c9d01f59b98dcb78a8f9911e6718886b9c37e3f 100644 (file)
--- 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));
+}