From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 27 Oct 1989 07:20:32 +0000 (+0000)
Subject: Don't call `compiled-procedure/name' on a compiled-entry unless that
X-Git-Tag: 20090517-FFI~11732
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b5c794eb3eca32820faabd776b921d0f944d5a50;p=mit-scheme.git

Don't call `compiled-procedure/name' on a compiled-entry unless that
entry is known to be a procedure type.
---

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