From 0eaf50cf18cc1a564338d2ede76cf044b079f1b9 Mon Sep 17 00:00:00 2001 From: "Henry M. Wu" Date: Thu, 31 Mar 1988 21:39:16 +0000 Subject: [PATCH] Trap trivial closures with error in `find-variable-internal'. --- v7/src/compiler/rtlgen/fndblk.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/v7/src/compiler/rtlgen/fndblk.scm b/v7/src/compiler/rtlgen/fndblk.scm index fc58c9305..c434ca8fe 100644 --- a/v7/src/compiler/rtlgen/fndblk.scm +++ b/v7/src/compiler/rtlgen/fndblk.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlgen/fndblk.scm,v 4.5 1988/03/14 20:53:19 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlgen/fndblk.scm,v 4.6 1988/03/31 21:39:16 mhwu Exp $ Copyright (c) 1987 Massachusetts Institute of Technology @@ -86,7 +86,7 @@ MIT in each case. |# (offset-locative locative (variable-offset block variable))))) if-ic)) ((procedure/trivial-closure? rvalue) - (if-compiler (make-trivial-closure-cons rvalue))) + (error "FIND-VARIABLE-INTERNAL: Trivial closure value encountered")) (else (if-compiler (stack-locative-offset -- 2.25.1