Chez Scheme: unbreak 32-bit build

2020-11-08 05:56:56 -07:00 · 2020-11-08 05:56:56 -07:00 · e40e86ae5a
commit e40e86ae5a
parent 7a12b4ac93
1 changed files with 1 additions and 1 deletions
--- 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