Flush `expression-non-object?' since that is now defined elsewhere.

diff --git a/v7/src/compiler/rtlopt/rcseep.scm b/v7/src/compiler/rtlopt/rcseep.scm
index 0aa04c3da72cc4a5c07030a3fcee807605cdf263..4124d79fd855e4167800ff5ff3d94ffbc67ae624 100644 (file)
--- 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 4.4 1988/08/11 20:10:58 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlopt/rcseep.scm,v 4.5 1988/08/29 23:18:23 cph Rel $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -79,20 +79,6 @@ MIT in each case. |#
   (and (rtl:offset? expression)
        (interpreter-regs-pointer? (rtl:offset-register expression))))
 
-(define (expression-non-object? expression)
-  (if (rtl:register? expression)
-      (or (register-contains-address? (rtl:register-number expression))
-         (register-contains-fixnum? (rtl:register-number expression)))
-      (memq (rtl:expression-type expression)
-           '(OBJECT->ADDRESS
-             OBJECT->DATUM
-             OBJECT->TYPE
-             OBJECT->FIXNUM
-             CHAR->ASCII
-             OFFSET-ADDRESS
-             VARIABLE-CACHE
-             ASSIGNMENT-CACHE))))
-
 (define (expression-address-varies? expression)
   (and (not (interpreter-register-reference? expression))
        (or (memq (rtl:expression-type expression)