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

cs: fix supression of built-in functions in traces

Browse Source 
Repairs 0ae3ef7b42 after the number representing the static
generation changed.
This commit is contained in:
Matthew Flatt 2020-09-15 15:33:49 -06:00
parent c1f62ae959
commit a74a30ee8d
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -535,8 +535,8 @@
(define trace-length-limit 65535) (define trace-length-limit 65535)
(define suppress-generation-in-trace (if (getenv "PLT_SHOW_BUILTIN_CONTEXT") (define suppress-generation-in-trace (if (getenv "PLT_SHOW_BUILTIN_CONTEXT")
-1 255
255)) (collect-maximum-generation)))
;; Convert a continuation to a list of function-name and ;; Convert a continuation to a list of function-name and
;; source information. Cache the result half-way up the ;; source information. Cache the result half-way up the
@ -564,7 +564,7 @@
(let ([c (if offset (let ([c (if offset
(#%$continuation-stack-return-code k offset) (#%$continuation-stack-return-code k offset)
(#%$continuation-return-code k))]) (#%$continuation-return-code k))])
(and (not (fx= (#%$generation c) suppress-generation-in-trace)) (and (not (fx> (#%$generation c) suppress-generation-in-trace))
(let ([n (#%$code-name c)]) (let ([n (#%$code-name c)])
(if (path-or-empty-procedure-name-string? n) (if (path-or-empty-procedure-name-string? n)
#f #f