From 87fe0eb880b5e5b6fc41e9b6b00ed0f16815f1de Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Wed, 15 Apr 1987 05:07:31 +0000 Subject: [PATCH] Change error messages so that error message truncation does not discard interesting information. --- v7/src/runtime/utabs.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/v7/src/runtime/utabs.scm b/v7/src/runtime/utabs.scm index 49fe869b7..3a1c0a965 100644 --- a/v7/src/runtime/utabs.scm +++ b/v7/src/runtime/utabs.scm @@ -1,6 +1,6 @@ ;;; -*-Scheme-*- ;;; -;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/utabs.scm,v 13.44 1987/04/13 18:25:02 cph Exp $ +;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/utabs.scm,v 13.45 1987/04/15 05:07:31 cph Exp $ ;;; ;;; Copyright (c) 1987 Massachusetts Institute of Technology ;;; @@ -98,7 +98,7 @@ (set! fixed-objects-vector-slot (named-lambda (fixed-objects-vector-slot name) (or (microcode-table-search 15 name) - (error "Unknown name" fixed-objects-vector-slot name)))) + (error "FIXED-OBJECTS-VECTOR-SLOT: Unknown name" name)))) (define fixed-objects) @@ -156,7 +156,7 @@ (set! microcode-type (named-lambda (microcode-type name) (or (microcode-table-search types-slot name) - (error "Unknown name" microcode-type name)))) + (error "MICROCODE-TYPE: Unknown name" name)))) (set! microcode-type-predicate (named-lambda (microcode-type-predicate name) @@ -243,7 +243,7 @@ (if code (map-code-to-machine-address primitive-type-code code) (or (get-external-number name (if (unassigned? force?) #f force?)) - (error "Unknown name" make-primitive-procedure name)))))) + (error "MAKE-PRIMITIVE-PROCEDURE: Unknown name" name)))))) (set! implemented-primitive-procedure? (named-lambda (implemented-primitive-procedure? object) -- 2.25.1