From b5c794eb3eca32820faabd776b921d0f944d5a50 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 27 Oct 1989 07:20:32 +0000 Subject: [PATCH] Don't call `compiled-procedure/name' on a compiled-entry unless that entry is known to be a procedure type. --- v7/src/runtime/unpars.scm | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/v7/src/runtime/unpars.scm b/v7/src/runtime/unpars.scm index 6a6d1a7ef..b7803aa80 100644 --- a/v7/src/runtime/unpars.scm +++ b/v7/src/runtime/unpars.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/unpars.scm,v 14.14 1989/10/26 06:47:18 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/unpars.scm,v 14.15 1989/10/27 07:20:32 cph Exp $ Copyright (c) 1988, 1989 Massachusetts Institute of Technology @@ -492,7 +492,10 @@ MIT in each case. |# (if closure? 'COMPILED-CLOSURE type) entry (lambda () - (let ((name (compiled-procedure/name entry))) (with-values (lambda () (compiled-entry/filename entry)) + (let ((name + (and (eq? type 'COMPILED-PROCEDURE) + (compiled-procedure/name entry)))) + (with-values (lambda () (compiled-entry/filename entry)) (lambda (filename block-number) (*unparse-char #\() (if name -- 2.25.1