From 3a807b51d71edcdb30c91cab96fa332cae78de74 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sat, 9 May 1987 01:07:56 +0000 Subject: [PATCH] Add predicates for examining a combination's compilation type. --- v7/src/compiler/base/ctypes.scm | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/v7/src/compiler/base/ctypes.scm b/v7/src/compiler/base/ctypes.scm index f7ab49890..58e6a8c94 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.45 1987/05/07 00:05:52 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/ctypes.scm,v 1.46 1987/05/09 01:07:56 cph Exp $ Copyright (c) 1987 Massachusetts Institute of Technology @@ -82,6 +82,15 @@ MIT in each case. |# (cons combination (vnode-combinations value))) (snode->scfg combination))) +(define-integrable (combination-compiled-for-predicate? combination) + (eq? 'PREDICATE (combination-compilation-type combination))) + +(define-integrable (combination-compiled-for-effect? combination) + (eq? 'EFFECT (combination-compilation-type combination))) + +(define-integrable (combination-compiled-for-value? combination) + (eq? 'VALUE (combination-compilation-type combination))) + (define-snode continuation rtl-edge label frame-pointer-offset) (define *continuations*) -- 2.25.1