From ee406a6e4f854a717d9a267fd5e45c7c0ecc8459 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sun, 19 Jul 1987 21:34:13 +0000 Subject: [PATCH] Missing definition of `rtl:interpreter-call-result:cache-unassigned?'. --- v7/src/compiler/rtlbase/rtlty2.scm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/v7/src/compiler/rtlbase/rtlty2.scm b/v7/src/compiler/rtlbase/rtlty2.scm index 6adfad4f9..84d3bb2d8 100644 --- a/v7/src/compiler/rtlbase/rtlty2.scm +++ b/v7/src/compiler/rtlbase/rtlty2.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlbase/rtlty2.scm,v 1.1 1987/06/17 19:43:35 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlbase/rtlty2.scm,v 1.2 1987/07/19 21:34:13 cph Exp $ Copyright (c) 1987 Massachusetts Institute of Technology @@ -93,6 +93,9 @@ MIT in each case. |# (define-integrable (rtl:interpreter-call-result:cache-reference) (rtl:make-fetch 'INTERPRETER-CALL-RESULT:CACHE-REFERENCE)) +(define-integrable (rtl:interpreter-call-result:cache-unassigned?) + (rtl:make-fetch 'INTERPRETER-CALL-RESULT:CACHE-UNASSIGNED?)) + (define-integrable (rtl:interpreter-call-result:enclose) (rtl:make-fetch 'INTERPRETER-CALL-RESULT:ENCLOSE)) -- 2.25.1