From d4e5426ffd72869023f9821e864fad3f9a559459 Mon Sep 17 00:00:00 2001 From: Stephen Adams Date: Fri, 3 Oct 1997 13:43:41 +0000 Subject: [PATCH] Thinko in replacements for INTEGER-NEGATIVE? and INTEGER-POSITIVE? (was doing fixnum replacement for known-to-be exact integer arguments rather than known-to-be fixnum arguments. --- v8/src/compiler/midend/typerew.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/v8/src/compiler/midend/typerew.scm b/v8/src/compiler/midend/typerew.scm index a124bb798..fe1a4bad4 100644 --- a/v8/src/compiler/midend/typerew.scm +++ b/v8/src/compiler/midend/typerew.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: typerew.scm,v 1.27 1997/07/11 02:34:48 adams Exp $ +$Id: typerew.scm,v 1.28 1997/10/03 13:43:41 adams Exp $ Copyright (c) 1994-1996 Massachusetts Institute of Technology @@ -1985,10 +1985,10 @@ and we dont do much with that. type:exact-integer type:any (typerew/%lc EQ? 0)) (define-typerew-unary-variants-replacement-method INTEGER-NEGATIVE? - type:exact-integer type:any (typerew/%lc fix:< 0)) + type:fixnum type:any (typerew/%lc fix:< 0)) (define-typerew-unary-variants-replacement-method INTEGER-POSITIVE? - type:exact-integer type:any (typerew/%lc fix:> 0)) + type:fixnum type:any (typerew/%lc fix:> 0)) ) -- 2.25.1