From 0c650ac91738cc77c62f872cd7acfe705e6067be Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Wed, 14 Sep 1988 06:38:12 +0000 Subject: [PATCH] If the continuation of a combination is always known, do not record it as the invocation continuation. This is because the object will not exist, and thus its label will never be defined. --- v7/src/compiler/rtlgen/rgcomb.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/v7/src/compiler/rtlgen/rgcomb.scm b/v7/src/compiler/rtlgen/rgcomb.scm index c1ac23bcb..5cbd45056 100644 --- a/v7/src/compiler/rtlgen/rgcomb.scm +++ b/v7/src/compiler/rtlgen/rgcomb.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlgen/rgcomb.scm,v 4.5 1988/06/14 08:42:37 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlgen/rgcomb.scm,v 4.6 1988/09/14 06:38:12 cph Exp $ Copyright (c) 1988 Massachusetts Institute of Technology @@ -56,6 +56,8 @@ MIT in each case. |# offset frame-size (and (return-operator/subproblem? continuation) + (not (continuation/always-known-operator? + continuation)) (continuation/label continuation)) (generate/invocation-prefix block callee -- 2.25.1