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 4ca2cc1a09c7b4d088e8c023dd4cd5f6cb24edb8..af89424f89b01f988c13d153dda4c163d76aed4a 100644 (file)
--- 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 259938c7d9851b1e0059fd2e8b30b961b58c6927..24826ac14c63d94c69ba59d5fab7246b211a9f88 100644 (file)
--- 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)