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

cs: fix printed name of some fx and fl functions

Browse Source
This commit is contained in:
Matthew Flatt 2020-11-04 15:33:42 -07:00
parent e50f53e990
commit 1aab61340e
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -108,12 +108,12 @@
(let ([m (integer-sqrt n)]) (let ([m (integer-sqrt n)])
(values m (- n (* m m))))) (values m (- n (* m m)))))
(define fx->fl #2%fixnum->flonum) (define (fx->fl x) (#2%fixnum->flonum x))
(define fxrshift #2%fxarithmetic-shift-right) (define (fxrshift x y) (#2%fxarithmetic-shift-right x y))
(define fxlshift #2%fxarithmetic-shift-left) (define (fxlshift x y) (#2%fxarithmetic-shift-left x y))
(define fl->fx #2%flonum->fixnum) (define (fl->fx x) (#2%flonum->fixnum x))
(define ->fl #2%real->flonum) (define (->fl x) (#2%real->flonum x))
(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)))