From dd92cc1a0fc7104307073fded012997c710d26fb Mon Sep 17 00:00:00 2001 From: "Henry M. Wu" Date: Thu, 9 Jul 1987 23:18:43 +0000 Subject: [PATCH] Added "block" slot to continuation objects. --- v7/src/compiler/base/ctypes.scm | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/v7/src/compiler/base/ctypes.scm b/v7/src/compiler/base/ctypes.scm index 2ffe49ad6..e5465fe69 100644 --- a/v7/src/compiler/base/ctypes.scm +++ b/v7/src/compiler/base/ctypes.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/ctypes.scm,v 1.48 1987/06/02 18:44:05 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/ctypes.scm,v 1.49 1987/07/09 23:18:43 mhwu Exp $ Copyright (c) 1987 Massachusetts Institute of Technology @@ -97,15 +97,16 @@ MIT in each case. |# (define-integrable (combination-compiled-for-value? combination) (eq? 'VALUE (combination-compilation-type combination))) -(define-snode continuation rtl-edge label frame-pointer-offset) +(define-snode continuation rtl-edge label frame-pointer-offset block) (define *continuations*) -(define-integrable (make-continuation) +(define-integrable (make-continuation block) (let ((continuation (make-snode continuation-tag false (generate-label 'CONTINUATION) - false))) + false + block))) (set! *continuations* (cons continuation *continuations*)) (symbol-hash-table/insert! *label->object* (continuation-label continuation) -- 2.25.1