From bb0ce22bd622079c353e31c8a447519fe5fbd30b Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Mon, 1 May 2017 21:04:23 -0700 Subject: [PATCH] Fix typo in rule that broke i386 build. --- src/compiler/machines/i386/rules1.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 2.25.1