From c4eb362acd428027cf50ab7c59a59e8170da7bff Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 1 Oct 2004 03:39:02 +0000 Subject: [PATCH] Show bit of illegal interrupt. --- v7/src/runtime/intrpt.scm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/v7/src/runtime/intrpt.scm b/v7/src/runtime/intrpt.scm index 262744783..225b91bf7 100644 --- a/v7/src/runtime/intrpt.scm +++ b/v7/src/runtime/intrpt.scm @@ -1,8 +1,9 @@ #| -*-Scheme-*- -$Id: intrpt.scm,v 14.24 2003/02/14 18:28:32 cph Exp $ +$Id: intrpt.scm,v 14.25 2004/10/01 03:39:02 cph Exp $ -Copyright (c) 1988-1999 Massachusetts Institute of Technology +Copyright 1986,1987,1988,1990,1991,1992 Massachusetts Institute of Technology +Copyright 1993,1994,2004 Massachusetts Institute of Technology This file is part of MIT/GNU Scheme. @@ -123,7 +124,7 @@ USA. (define ((illegal-interrupt-handler interrupt-bit) interrupt-code interrupt-enables) (clear-interrupts! interrupt-bit) - (error "Illegal interrupt" interrupt-code interrupt-enables)) + (error "Illegal interrupt:" interrupt-bit interrupt-code interrupt-enables)) ;;;; Keyboard Interrupts -- 2.25.1