From: Chris Hanson Date: Sun, 29 Apr 2007 19:23:33 +0000 (+0000) Subject: Eliminate now-unused error code. X-Git-Tag: 20090517-FFI~622 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f605ae2d0e6bd4fad4feda718faf39e45d96958e;p=mit-scheme.git Eliminate now-unused error code. --- diff --git a/v7/src/microcode/utabmd.scm b/v7/src/microcode/utabmd.scm index bd21f7aa2..1678bfafe 100644 --- a/v7/src/microcode/utabmd.scm +++ b/v7/src/microcode/utabmd.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: utabmd.scm,v 9.92 2007/04/22 16:31:23 cph Exp $ +$Id: utabmd.scm,v 9.93 2007/04/29 19:23:33 cph Exp $ Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, @@ -67,15 +67,15 @@ USA. DUMMY-HISTORY ;13 BIGNUM-ONE ;14 SCHEDULER ;15 - MICROCODE-TERMINATIONS-VECTOR ;16 - MICROCODE-TERMINATIONS-PROCEDURES ;17 + MICROCODE-TERMINATIONS-VECTOR ;16 + MICROCODE-TERMINATIONS-PROCEDURES ;17 FIXED-OBJECTS-VECTOR ;18 THE-WORK-QUEUE ;19 FUTURE-READS-LOGGER ;1A TOUCHED-FUTURES-VECTOR ;1B #F #| PRECIOUS-OBJECTS |# ;1C ERROR-PROCEDURE ;1D - #F #| UNSNAPPED-LINK |# ;1E + #F #| UNSNAPPED-LINK |# ;1E #F #| MICROCODE-UTILITIES-VECTOR |# ;1F COMPILER-ERROR-PROCEDURE ;20 #F #| LOST-OBJECT-BASE |# ;21 @@ -120,7 +120,7 @@ USA. (PAIR LIST) ;01 CHARACTER ;02 QUOTATION ;03 - PRIMITIVE-COMBINATION-2 ;04 + PRIMITIVE-COMBINATION-2 ;04 UNINTERNED-SYMBOL ;05 (FLONUM BIG-FLONUM) ;06 COMBINATION-1 ;07 @@ -234,7 +234,7 @@ USA. #F ;73 #F ;74 #F ;75 - #F ;76 + #F ;76 #F ;77 #F ;78 #F ;79 @@ -250,7 +250,7 @@ USA. #F ;83 #F ;84 #F ;85 - #F ;86 + #F ;86 #F ;87 #F ;88 #F ;89 @@ -266,7 +266,7 @@ USA. #F ;93 #F ;94 #F ;95 - #F ;96 + #F ;96 #F ;97 #F ;98 #F ;99 @@ -282,7 +282,7 @@ USA. #F ;A3 #F ;A4 #F ;A5 - #F ;A6 + #F ;A6 #F ;A7 #F ;A8 #F ;A9 @@ -298,7 +298,7 @@ USA. #F ;B3 #F ;B4 #F ;B5 - #F ;B6 + #F ;B6 #F ;B7 #F ;B8 #F ;B9 @@ -314,7 +314,7 @@ USA. #F ;C3 #F ;C4 #F ;C5 - #F ;C6 + #F ;C6 #F ;C7 #F ;C8 #F ;C9 @@ -330,7 +330,7 @@ USA. #F ;D3 #F ;D4 #F ;D5 - #F ;D6 + #F ;D6 #F ;D7 #F ;D8 #F ;D9 @@ -346,7 +346,7 @@ USA. #F ;E3 #F ;E4 #F ;E5 - #F ;E6 + #F ;E6 #F ;E7 #F ;E8 #F ;E9 @@ -362,7 +362,7 @@ USA. #F ;F3 #F ;F4 #F ;F5 - #F ;F6 + #F ;F6 #F ;F7 #F ;F8 #F ;F9 @@ -506,12 +506,12 @@ USA. FASL-FILE-TOO-BIG ;17 FASL-FILE-BAD-DATA ;18 #F ;19 - WRITE-INTO-PURE-SPACE ;1A - #F ;1B + #F ;1A + #F ;1B #F ;1C BAD-ASSIGNMENT ;1D - FAILED-ARG-1-COERCION ;1E - FAILED-ARG-2-COERCION ;1F + FAILED-ARG-1-COERCION ;1E + FAILED-ARG-2-COERCION ;1F OUT-OF-FILE-HANDLES ;20 #F ;21 BAD-RANGE-ARGUMENT-3 ;22 @@ -549,24 +549,24 @@ USA. (vector-set! (get-fixed-objects-vector) 22 ;(fixed-objects-vector-slot 'MICROCODE-TERMINATIONS-VECTOR) - #(HALT ;00 - DISK-RESTORE ;01 - BROKEN-HEART ;02 - NON-POINTER-RELOCATION ;03 - BAD-ROOT ;04 - NON-EXISTENT-CONTINUATION ;05 - BAD-STACK ;06 - STACK-OVERFLOW ;07 - STACK-ALLOCATION-FAILED ;08 - NO-ERROR-HANDLER ;09 - NO-INTERRUPT-HANDLER ;0A - UNIMPLEMENTED-CONTINUATION ;0B - EXIT ;0C - BAD-PRIMITIVE-DURING-ERROR ;0D - EOF ;0E - BAD-PRIMITIVE ;0F + #(HALT ;00 + DISK-RESTORE ;01 + BROKEN-HEART ;02 + NON-POINTER-RELOCATION ;03 + BAD-ROOT ;04 + NON-EXISTENT-CONTINUATION ;05 + BAD-STACK ;06 + STACK-OVERFLOW ;07 + STACK-ALLOCATION-FAILED ;08 + NO-ERROR-HANDLER ;09 + NO-INTERRUPT-HANDLER ;0A + UNIMPLEMENTED-CONTINUATION ;0B + EXIT ;0C + BAD-PRIMITIVE-DURING-ERROR ;0D + EOF ;0E + BAD-PRIMITIVE ;0F TERMINATION-HANDLER ;10 - END-OF-CONTINUATION ;11 + END-OF-CONTINUATION ;11 INVALID-TYPE-CODE ;12 COMPILER-DEATH ;13 GC-OUT-OF-SPACE ;14 @@ -613,4 +613,4 @@ USA. ;;; This identification string is saved by the system. -"$Id: utabmd.scm,v 9.92 2007/04/22 16:31:23 cph Exp $" \ No newline at end of file +"$Id: utabmd.scm,v 9.93 2007/04/29 19:23:33 cph Exp $" \ No newline at end of file