suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

cs: repair primitives incorrectly exported in unsafe form

Browse Source
This commit is contained in:
Matthew Flatt 2019-01-20 17:54:27 -07:00
parent 299d80e830
commit fdb98da0b1
2 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racket/src/cs/rumble/box.ss
View File

@ -27,7 +27,7 @@
(#2%unbox b)) (#2%unbox b))
(define (set-box! b v) (define (set-box! b v)
(if (#%box? b) (if (#%mutable-box? b)
(#3%set-box! b v) (#3%set-box! b v)
(pariah (impersonate-set-box! b v)))) (pariah (impersonate-set-box! b v))))

12
racket/src/cs/rumble/number.ss
View File

@ -18,7 +18,7 @@
(check who real? x) (check who real? x)
(exact->inexact x)) (exact->inexact x))
(define arithmetic-shift bitwise-arithmetic-shift) (define arithmetic-shift #2%bitwise-arithmetic-shift)
(define/who (integer-sqrt n) (define/who (integer-sqrt n)
(check who integer? n) (check who integer? n)
@ -36,12 +36,12 @@
(let ([m (integer-sqrt n)]) (let ([m (integer-sqrt n)])
(values m (- n (* m m))))) (values m (- n (* m m)))))
(define fx->fl fixnum->flonum) (define fx->fl #2%fixnum->flonum)
(define fxrshift fxarithmetic-shift-right) (define fxrshift #2%fxarithmetic-shift-right)
(define fxlshift fxarithmetic-shift-left) (define fxlshift #2%fxarithmetic-shift-left)
(define fl->fx flonum->fixnum) (define fl->fx #2%flonum->fixnum)
(define ->fl real->flonum) (define ->fl #2%real->flonum)
(define/who (fl->exact-integer fl) (define/who (fl->exact-integer fl)
(check who flonum? fl) (check who flonum? fl)
(inexact->exact (flfloor fl))) (inexact->exact (flfloor fl)))