compiled-entry/dbg-object now returns meaningful info for the internal

entry point.

diff --git a/v7/src/runtime/infutl.scm b/v7/src/runtime/infutl.scm
index e8a60c754c25b9f04a403b95eea97f577c30698b..0d2a8a119482416c71d76b8ee402c272f579e874 100644 (file)
--- a/v7/src/runtime/infutl.scm
+++ b/v7/src/runtime/infutl.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: infutl.scm,v 1.54 1993/11/29 20:49:59 cph Exp $
+$Id: infutl.scm,v 1.55 1994/01/29 00:51:58 gjr Exp $
 
-Copyright (c) 1988-93 Massachusetts Institute of Technology
+Copyright (c) 1988-1994 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -169,7 +169,7 @@ MIT in each case. |#
                       expression
                       (find-procedure))))
               (lambda ()
-                false)))))))
+                (find-procedure))))))))
 
 (define (compiled-entry/block entry)
   (cond ((compiled-code-block? entry)

diff --git a/v7/src/runtime/uenvir.scm b/v7/src/runtime/uenvir.scm
index 4267b60a3094c0d2822c17863005451562dde5f5..5cf4a9417c340618bf585d0f8924b6e6185aac4c 100644 (file)
--- a/v7/src/runtime/uenvir.scm
+++ b/v7/src/runtime/uenvir.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: uenvir.scm,v 14.30 1992/12/03 03:20:32 cph Exp $
+$Id: uenvir.scm,v 14.31 1994/01/29 00:51:52 gjr Exp $
 
 Copyright (c) 1988-1992 Massachusetts Institute of Technology
 
@@ -324,6 +324,9 @@ MIT in each case. |#
           default))))
 
 (define (compiled-procedure/environment entry)
+  (if (not (compiled-procedure? entry))
+      (error "Not a compiled procedure" entry
+            'COMPILED-PROCEDURE/ENVIRONMENT))
   (let ((procedure (compiled-entry/dbg-object entry)))
     (if (not procedure)
        (error "Unable to obtain closing environment" entry))

diff --git a/v8/src/runtime/infutl.scm b/v8/src/runtime/infutl.scm
index e8a60c754c25b9f04a403b95eea97f577c30698b..0d2a8a119482416c71d76b8ee402c272f579e874 100644 (file)
--- a/v8/src/runtime/infutl.scm
+++ b/v8/src/runtime/infutl.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: infutl.scm,v 1.54 1993/11/29 20:49:59 cph Exp $
+$Id: infutl.scm,v 1.55 1994/01/29 00:51:58 gjr Exp $
 
-Copyright (c) 1988-93 Massachusetts Institute of Technology
+Copyright (c) 1988-1994 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -169,7 +169,7 @@ MIT in each case. |#
                       expression
                       (find-procedure))))
               (lambda ()
-                false)))))))
+                (find-procedure))))))))
 
 (define (compiled-entry/block entry)
   (cond ((compiled-code-block? entry)

diff --git a/v8/src/runtime/uenvir.scm b/v8/src/runtime/uenvir.scm
index 4267b60a3094c0d2822c17863005451562dde5f5..5cf4a9417c340618bf585d0f8924b6e6185aac4c 100644 (file)
--- a/v8/src/runtime/uenvir.scm
+++ b/v8/src/runtime/uenvir.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: uenvir.scm,v 14.30 1992/12/03 03:20:32 cph Exp $
+$Id: uenvir.scm,v 14.31 1994/01/29 00:51:52 gjr Exp $
 
 Copyright (c) 1988-1992 Massachusetts Institute of Technology
 
@@ -324,6 +324,9 @@ MIT in each case. |#
           default))))
 
 (define (compiled-procedure/environment entry)
+  (if (not (compiled-procedure? entry))
+      (error "Not a compiled procedure" entry
+            'COMPILED-PROCEDURE/ENVIRONMENT))
   (let ((procedure (compiled-entry/dbg-object entry)))
     (if (not procedure)
        (error "Unable to obtain closing environment" entry))