From 35cd16e0be826231f31851102134b860fbc2bd65 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 8 Jan 2002 05:06:46 +0000 Subject: [PATCH] Fix naming issue right (?). --- v7/src/runtime/urtrap.scm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/v7/src/runtime/urtrap.scm b/v7/src/runtime/urtrap.scm index 29d71c5b6..c0fa92459 100644 --- a/v7/src/runtime/urtrap.scm +++ b/v7/src/runtime/urtrap.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: urtrap.scm,v 14.12 2002/01/08 05:03:56 cph Exp $ +$Id: urtrap.scm,v 14.13 2002/01/08 05:06:46 cph Exp $ Copyright (c) 1988-1999, 2001, 2002 Massachusetts Institute of Technology @@ -33,8 +33,9 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA (standard-unparser-method 'REFERENCE-TRAP (lambda (trap port) (write-char #\space port) - (write (or (reference-trap-kind-name trap) - (reference-trap-kind trap)) + (write (let ((kind (reference-trap-kind trap))) + (or (reference-trap-kind-name kind) + kind)) port))))) (kind #f read-only #t) (extra #f read-only #t)) -- 2.25.1