From d18d97ed50b7a830e586f9d1767bf8d6df799c6b Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Sat, 29 Jan 1994 00:51:58 +0000 Subject: [PATCH] compiled-entry/dbg-object now returns meaningful info for the internal entry point. --- v7/src/runtime/infutl.scm | 6 +++--- v7/src/runtime/uenvir.scm | 5 ++++- v8/src/runtime/infutl.scm | 6 +++--- v8/src/runtime/uenvir.scm | 5 ++++- 4 files changed, 14 insertions(+), 8 deletions(-) diff --git a/v7/src/runtime/infutl.scm b/v7/src/runtime/infutl.scm index e8a60c754..0d2a8a119 100644 --- 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 4267b60a3..5cf4a9417 100644 --- 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 e8a60c754..0d2a8a119 100644 --- 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 4267b60a3..5cf4a9417 100644 --- 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)) -- 2.25.1