From a74a30ee8d3e15a54a0574c9741587a0c339fba8 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 15 Sep 2020 15:33:49 -0600 Subject: [PATCH] cs: fix supression of built-in functions in traces Repairs 0ae3ef7b42 after the number representing the static generation changed. --- racket/src/cs/rumble/error.ss | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/racket/src/cs/rumble/error.ss b/racket/src/cs/rumble/error.ss index 07cfea8481..75a1e4bef5 100644 --- a/racket/src/cs/rumble/error.ss +++ b/racket/src/cs/rumble/error.ss @@ -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