From e40e86ae5a5bf1005049b35f94c609b888149e3e Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sun, 8 Nov 2020 05:56:56 -0700
Subject: [PATCH] Chez Scheme: unbreak 32-bit build

---
 racket/src/ChezScheme/s/cpnanopass.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/racket/src/ChezScheme/s/cpnanopass.ss b/racket/src/ChezScheme/s/cpnanopass.ss
index af30e1ecb3..07688ba228 100644
--- a/racket/src/ChezScheme/s/cpnanopass.ss
+++ b/racket/src/ChezScheme/s/cpnanopass.ss
@@ -3594,7 +3594,7 @@
          (define build-double-scale
            (lambda (e)
              (constant-case ptr-bits
-               [(32) (%inline sll ,e 1)]
+               [(32) (%inline sll ,e (immediate 1))]
                [(64) e]
                [else ($oops 'build-double-scale "unknown ptr-bit size ~s" (constant ptr-bits))])))
          (define build-unfix