From: Chris Hanson Date: Wed, 14 Sep 1988 06:38:12 +0000 (+0000) Subject: If the continuation of a combination is always known, do not record it X-Git-Tag: 20090517-FFI~12538 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=0c650ac91738cc77c62f872cd7acfe705e6067be;p=mit-scheme.git 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. --- 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