From: Stephen Adams Date: Fri, 3 Oct 1997 13:43:41 +0000 (+0000) Subject: Thinko in replacements for INTEGER-NEGATIVE? and INTEGER-POSITIVE? X-Git-Tag: 20090517-FFI~5006 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d4e5426ffd72869023f9821e864fad3f9a559459;p=mit-scheme.git 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. --- 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)) )