From f812fd9e67e38815b4492e0b60b8628de4d2871d Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 9 Oct 2019 06:23:40 -0600 Subject: [PATCH] cs: fix misuse of `fx>=` for `_int64`, etc. --- racket/src/cs/rumble/foreign.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/racket/src/cs/rumble/foreign.ss b/racket/src/cs/rumble/foreign.ss index dfc30accc9..49176c7022 100644 --- a/racket/src/cs/rumble/foreign.ss +++ b/racket/src/cs/rumble/foreign.ss @@ -1003,7 +1003,7 @@ (ptr-set! p _type offset v))]))))) (define (fixnum-in-range? lo hi) (lambda (v) (and (fixnum? v) (fx>= v lo) (fx>= v hi)))) -(define (in-range? lo hi) (lambda (v) (and (exact-integer? v) (fx>= v lo) (fx>= v hi)))) +(define (in-range? lo hi) (lambda (v) (and (exact-integer? v) (>= v lo) (>= v hi)))) ;; Schemify optimizes `(ptr-ref p _uint16 offset v)` to `(ptr-set!/uint16 p (fxlshift offset 1) v #f)`, etc. (define-fast-ptr-ops ptr-ref/int8 ptr-set!/int8 _int8 (fixnum-in-range? -128 127) bytevector-s8-ref bytevector-s8-set! integer-8 0)