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

rumble: fix misuse of fx=

Browse Source 
Looks like I previously changed the wrong `eq?` to `fx=`.
This commit is contained in:
Matthew Flatt 2020-08-30 09:10:57 -06:00
parent 6a685f52c6
commit f1b98900f5
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
racket/src/cs/rumble/error.ss
View File

@ -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