From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Thu, 28 Jun 1990 16:35:56 +0000 (+0000)
Subject: compiled-entry/block is the identity on compiled code blocks.
X-Git-Tag: 20090517-FFI~11346
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=249063b8cbad0a227250942f5d47d4320fdfede3;p=mit-scheme.git

compiled-entry/block is the identity on compiled code blocks.
---

diff --git a/v7/src/runtime/infutl.scm b/v7/src/runtime/infutl.scm
index 4ca2cc1a0..af89424f8 100644
--- a/v7/src/runtime/infutl.scm
+++ b/v7/src/runtime/infutl.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/infutl.scm,v 1.16 1990/04/21 16:26:26 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/infutl.scm,v 1.17 1990/06/28 16:35:56 jinx Exp $
 
 Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology
 
@@ -148,9 +148,12 @@ MIT in each case. |#
 		 false)))))))
 
 (define (compiled-entry/block entry)
-  (if (compiled-closure? entry)
-      (compiled-entry/block (compiled-closure->entry entry))
-      (compiled-code-address->block entry)))
+  (cond ((compiled-code-block? entry)
+	 entry)
+	((compiled-closure? entry)
+	 (compiled-entry/block (compiled-closure->entry entry)))
+	(else
+	 (compiled-code-address->block entry))))
 
 (define (compiled-entry/offset entry)
   (if (compiled-closure? entry)
diff --git a/v8/src/runtime/infutl.scm b/v8/src/runtime/infutl.scm
index 259938c7d..24826ac14 100644
--- a/v8/src/runtime/infutl.scm
+++ b/v8/src/runtime/infutl.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/infutl.scm,v 1.16 1990/04/21 16:26:26 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/infutl.scm,v 1.17 1990/06/28 16:35:56 jinx Exp $
 
 Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology
 
@@ -148,9 +148,12 @@ MIT in each case. |#
 		 false)))))))
 
 (define (compiled-entry/block entry)
-  (if (compiled-closure? entry)
-      (compiled-entry/block (compiled-closure->entry entry))
-      (compiled-code-address->block entry)))
+  (cond ((compiled-code-block? entry)
+	 entry)
+	((compiled-closure? entry)
+	 (compiled-entry/block (compiled-closure->entry entry)))
+	(else
+	 (compiled-code-address->block entry))))
 
 (define (compiled-entry/offset entry)
   (if (compiled-closure? entry)