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 9c0207ddd255c31a4196123418b30a9ec87b5691..5f4d5aeb9850710f5343595f907723d5ac9882a1 100644 (file)
--- 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