From f1b98900f5e03a6f99de8ea30d10552c1f6b9f5d Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 30 Aug 2020 09:10:57 -0600 Subject: [PATCH] rumble: fix misuse of `fx=` Looks like I previously changed the wrong `eq?` to `fx=`. --- racket/src/cs/rumble/error.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/racket/src/cs/rumble/error.ss b/racket/src/cs/rumble/error.ss index 45c46f638f..07cfea8481 100644 --- a/racket/src/cs/rumble/error.ss +++ b/racket/src/cs/rumble/error.ss @@ -557,14 +557,14 @@ (let* ([name (or (and (not offset) (let ([attachments (continuation-next-attachments k)]) (and (pair? attachments) - (not (fx= attachments (continuation-next-attachments (#%$continuation-link k)))) + (not (eq? attachments (continuation-next-attachments (#%$continuation-link k)))) (let ([n (extract-mark-from-frame (car attachments) linklet-instantiate-key #f)]) (and n (string->symbol (format "body of ~a" n))))))) (let ([c (if offset (#%$continuation-stack-return-code k offset) (#%$continuation-return-code k))]) - (and (not (eq? (#%$generation c) suppress-generation-in-trace)) + (and (not (fx= (#%$generation c) suppress-generation-in-trace)) (let ([n (#%$code-name c)]) (if (path-or-empty-procedure-name-string? n) #f