From 1aab61340e299af9a9b4cc87dfe0d22ab1bf8e9c Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 4 Nov 2020 15:33:42 -0700 Subject: [PATCH] cs: fix printed name of some fx and fl functions --- racket/src/cs/rumble/number.ss | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/racket/src/cs/rumble/number.ss b/racket/src/cs/rumble/number.ss index 7ee27af8ff..9d7e0f4c75 100644 --- a/racket/src/cs/rumble/number.ss +++ b/racket/src/cs/rumble/number.ss @@ -108,12 +108,12 @@ (let ([m (integer-sqrt n)]) (values m (- n (* m m))))) -(define fx->fl #2%fixnum->flonum) -(define fxrshift #2%fxarithmetic-shift-right) -(define fxlshift #2%fxarithmetic-shift-left) +(define (fx->fl x) (#2%fixnum->flonum x)) +(define (fxrshift x y) (#2%fxarithmetic-shift-right x y)) +(define (fxlshift x y) (#2%fxarithmetic-shift-left x y)) -(define fl->fx #2%flonum->fixnum) -(define ->fl #2%real->flonum) +(define (fl->fx x) (#2%flonum->fixnum x)) +(define (->fl x) (#2%real->flonum x)) (define/who (fl->exact-integer fl) (check who flonum? fl) (inexact->exact (flfloor fl)))