From 668274d500d52174a46b1aef0ed9e6bd16386feb Mon Sep 17 00:00:00 2001 From: Stephen Adams Date: Tue, 14 Feb 1995 02:39:50 +0000 Subject: [PATCH] Fixed buglet when opencoding &* --- v8/src/compiler/midend/laterew.scm | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/v8/src/compiler/midend/laterew.scm b/v8/src/compiler/midend/laterew.scm index 5680d4dc7..dd373735d 100644 --- a/v8/src/compiler/midend/laterew.scm +++ b/v8/src/compiler/midend/laterew.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: laterew.scm,v 1.1 1994/11/19 02:04:29 adams Exp $ +$Id: laterew.scm,v 1.2 1995/02/14 02:39:50 adams Exp $ Copyright (c) 1994 Massachusetts Institute of Technology @@ -144,10 +144,12 @@ MIT in each case. |# (%test (cond ((not (number? n-bits)) (lambda (name constant-rand) - `(CALL (QUOTE ,%small-fixnum?) - (QUOTE #F) - (LOOKUP ,name) - (QUOTE ,(n-bits constant-rand))))) + (if constant-rand + `(CALL (QUOTE ,%small-fixnum?) + (QUOTE #F) + (LOOKUP ,name) + (QUOTE ,(n-bits constant-rand))) + `(QUOTE #F)))) #| ;; Always open code as %small-fixnum? ;; So that generic arithmetic can be -- 2.25.1