From d74a8f4a933386c9ae93e6f65e8d46bd65acb61b Mon Sep 17 00:00:00 2001 From: Stephen Adams Date: Mon, 22 Jul 1996 18:06:48 +0000 Subject: [PATCH] Deleted unused let-binding. --- v8/src/compiler/midend/typerew.scm | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/v8/src/compiler/midend/typerew.scm b/v8/src/compiler/midend/typerew.scm index 8de1d8820..776335d2d 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.15 1996/07/22 18:04:14 adams Exp $ +$Id: typerew.scm,v 1.16 1996/07/22 18:06:48 adams Exp $ Copyright (c) 1994-1996 Massachusetts Institute of Technology @@ -1522,7 +1522,6 @@ MIT in each case. |# (let ((&* (make-primitive-procedure '&*)) (&/ (make-primitive-procedure '&/)) (type:inexact+0 (type:or type:inexact-number type:exact-zero)) - (type:fixnum-not-0 (type:except type:fixnum type:exact-zero)) (type:exact-int-not-0 (type:except type:exact-integer type:exact-zero)) (type:flonum+0 (type:or type:flonum type:exact-zero)) (type:not-fixnum (type:not type:fixnum))) -- 2.25.1