From fdb98da0b1f2b71b7589c44b03b300b75c3e31cb Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sun, 20 Jan 2019 17:54:27 -0700
Subject: [PATCH] cs: repair primitives incorrectly exported in unsafe form

---
 racket/src/cs/rumble/box.ss    |  2 +-
 racket/src/cs/rumble/number.ss | 12 ++++++------
 2 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/racket/src/cs/rumble/box.ss b/racket/src/cs/rumble/box.ss
index 09014dc0e6..6c2bfe499f 100644
--- a/racket/src/cs/rumble/box.ss
+++ b/racket/src/cs/rumble/box.ss
@@ -27,7 +27,7 @@
   (#2%unbox b))
 
 (define (set-box! b v)
-  (if (#%box? b)
+  (if (#%mutable-box? b)
       (#3%set-box! b v)
       (pariah (impersonate-set-box! b v))))
 
diff --git a/racket/src/cs/rumble/number.ss b/racket/src/cs/rumble/number.ss
index c2cb5991ce..daf6c5a98a 100644
--- a/racket/src/cs/rumble/number.ss
+++ b/racket/src/cs/rumble/number.ss
@@ -18,7 +18,7 @@
   (check who real? x)
   (exact->inexact x))
 
-(define arithmetic-shift bitwise-arithmetic-shift)
+(define arithmetic-shift #2%bitwise-arithmetic-shift)
 
 (define/who (integer-sqrt n)
   (check who integer? n)
@@ -36,12 +36,12 @@
   (let ([m (integer-sqrt n)])
     (values m (- n (* m m)))))
 
-(define fx->fl fixnum->flonum)
-(define fxrshift fxarithmetic-shift-right)
-(define fxlshift fxarithmetic-shift-left)
+(define fx->fl #2%fixnum->flonum)
+(define fxrshift #2%fxarithmetic-shift-right)
+(define fxlshift #2%fxarithmetic-shift-left)
 
-(define fl->fx flonum->fixnum)
-(define ->fl real->flonum)
+(define fl->fx #2%flonum->fixnum)
+(define ->fl #2%real->flonum)
 (define/who (fl->exact-integer fl)
   (check who flonum? fl)
   (inexact->exact (flfloor fl)))