From bf7077ade21c2e26d8b605084352f6874af42b44 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 20 Mar 1987 05:12:44 +0000 Subject: [PATCH] Add `expression-not-object?', which is true of any expression whose result is not a Scheme object. --- v7/src/compiler/rtlopt/rcseep.scm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/v7/src/compiler/rtlopt/rcseep.scm b/v7/src/compiler/rtlopt/rcseep.scm index 4642e74b6..e480eb028 100644 --- a/v7/src/compiler/rtlopt/rcseep.scm +++ b/v7/src/compiler/rtlopt/rcseep.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlopt/rcseep.scm,v 1.1 1987/03/19 00:49:01 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlopt/rcseep.scm,v 1.2 1987/03/20 05:12:44 cph Exp $ Copyright (c) 1987 Massachusetts Institute of Technology @@ -101,4 +101,8 @@ MIT in each case. |# (interpreter-free-pointer? (rtl:address-register expression)))) (define-integrable (pre/post-increment? expression) + (memq (rtl:expression-type expression) '(PRE-INCREMENT POST-INCREMENT))) + +(define-integrable (expression-not-object? expression) + (memq (rtl:expression-type expression) (loop x)) \ No newline at end of file -- 2.25.1