From faaf825f225bfefed980fa48255f733268c248a4 Mon Sep 17 00:00:00 2001 From: Stephen Adams Date: Sat, 29 Jan 1994 22:04:08 +0000 Subject: [PATCH] *** empty log message *** --- v7/src/runtime/uenvir.scm | 5 ++++- v8/src/runtime/uenvir.scm | 5 ++++- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/v7/src/runtime/uenvir.scm b/v7/src/runtime/uenvir.scm index 78118f3e2..266c33ac2 100644 --- a/v7/src/runtime/uenvir.scm +++ b/v7/src/runtime/uenvir.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: uenvir.scm,v 14.32 1994/01/29 21:57:32 adams Exp $ +$Id: uenvir.scm,v 14.33 1994/01/29 22:04:08 adams Exp $ Copyright (c) 1988-1992 Massachusetts Institute of Technology @@ -331,6 +331,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/uenvir.scm b/v8/src/runtime/uenvir.scm index 78118f3e2..266c33ac2 100644 --- a/v8/src/runtime/uenvir.scm +++ b/v8/src/runtime/uenvir.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: uenvir.scm,v 14.32 1994/01/29 21:57:32 adams Exp $ +$Id: uenvir.scm,v 14.33 1994/01/29 22:04:08 adams Exp $ Copyright (c) 1988-1992 Massachusetts Institute of Technology @@ -331,6 +331,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