From d16871a778006ac205b221fbdf8c8d6eb60d7992 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 23 Dec 1992 13:36:44 +0000
Subject: [PATCH] Fix typo in previous change.

---
 v7/src/compiler/rtlgen/opncod.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

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)))
-- 
2.25.1