From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 23 Dec 1992 13:36:44 +0000 (+0000)
Subject: Fix typo in previous change.
X-Git-Tag: 20090517-FFI~8643
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d16871a778006ac205b221fbdf8c8d6eb60d7992;p=mit-scheme.git

Fix typo in previous change.
---

diff --git a/v7/src/compiler/rtlgen/opncod.scm b/v7/src/compiler/rtlgen/opncod.scm
index 0ea7c1327..02b881eb5 100644
--- a/v7/src/compiler/rtlgen/opncod.scm
+++ b/v7/src/compiler/rtlgen/opncod.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: opncod.scm,v 4.53 1992/12/16 12:12:18 gjr Exp $
+$Id: opncod.scm,v 4.54 1992/12/23 13:36:44 cph Exp $
 
 Copyright (c) 1988-1992 Massachusetts Institute of Technology
 
@@ -598,7 +598,9 @@ MIT in each case. |#
 	      combination
 	      (list
 	       (open-code:type-check type (ucode-type fixnum))
-	       (open-code:range-check type (expt 2 scheme-type-width)))
+	       (open-code:range-check type
+				      (rtl:make-machine-constant
+				       (expt 2 scheme-type-width))))
 	      (finish
 	       (rtl:make-eq-test (rtl:make-object->datum type)
 				 (rtl:make-object->type object)))