From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Tue, 14 Feb 1995 02:39:50 +0000 (+0000)
Subject: Fixed buglet when opencoding &*
X-Git-Tag: 20090517-FFI~6638
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=668274d500d52174a46b1aef0ed9e6bd16386feb;p=mit-scheme.git

Fixed buglet when opencoding &*
---

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