From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 18 Dec 1986 03:37:04 +0000 (+0000)
Subject: Fix bug in `continuation-entry'.
X-Git-Tag: 20090517-FFI~13793
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=708c23953c7111013922468686aa7dddde82fca5;p=mit-scheme.git

Fix bug in `continuation-entry'.
---

diff --git a/v7/src/compiler/base/ctypes.scm b/v7/src/compiler/base/ctypes.scm
index 49d4b413c..486220e86 100644
--- a/v7/src/compiler/base/ctypes.scm
+++ b/v7/src/compiler/base/ctypes.scm
@@ -37,7 +37,7 @@
 
 ;;;; Compiler CFG Datatypes
 
-;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/ctypes.scm,v 1.35 1986/12/17 19:32:18 cph Exp $
+;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/ctypes.scm,v 1.36 1986/12/18 03:37:04 cph Exp $
 
 (declare (usual-integrations))
 (using-syntax (access compiler-syntax-table compiler-package)
@@ -94,7 +94,7 @@
 			     (cons combination (vnode-combinations value)))
     (snode->scfg combination)))
 
-(define-snode continuation block entry delta generator rtl-frame label)
+(define-snode continuation block &entry delta generator rtl-frame label)
 (define *continuations*)
 
 (define-integrable (make-continuation block entry delta generator)
@@ -104,6 +104,9 @@
     (set! *continuations* (cons continuation *continuations*))
     continuation))
 
+(define-integrable (continuation-entry continuation)
+  (entry-holder-next (continuation-&entry continuation)))
+
 (define-integrable (continuation-rtl continuation)
   (sframe->scfg (continuation-rtl-frame continuation)))