From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 2 May 2017 04:04:23 +0000 (-0700)
Subject: Fix typo in rule that broke i386 build.
X-Git-Tag: mit-scheme-pucked-9.2.12~14^2~98
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=bb0ce22bd622079c353e31c8a447519fe5fbd30b;p=mit-scheme.git

Fix typo in rule that broke i386 build.
---

diff --git a/src/compiler/machines/i386/rules1.scm b/src/compiler/machines/i386/rules1.scm
index 9c0207ddd..5f4d5aeb9 100644
--- a/src/compiler/machines/i386/rules1.scm
+++ b/src/compiler/machines/i386/rules1.scm
@@ -101,7 +101,7 @@ USA.
   (ASSIGN (REGISTER (? target))
 	  (CONS-POINTER (REGISTER (? type)) (REGISTER (? datum))))
   (let ((temp (standard-move-to-temporary! type)))
-    (LAP (ROR W ,temp (&U ,scheme-type-width))
+    (LAP (ROR W ,temp (& ,scheme-type-width))
 	 (OR W ,(standard-move-to-target! datum target) ,temp))))
 
 (define-rule statement