cs: fix supression of built-in functions in traces

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

View File

@ -535,8 +535,8 @@
(define trace-length-limit 65535)
(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
;; source information. Cache the result half-way up the
@ -564,7 +564,7 @@
(let ([c (if offset
(#%$continuation-stack-return-code k offset)
(#%$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)])
(if (path-or-empty-procedure-name-string? n)
#f