From db195a52b5e9cb52d3c298c5386695089769fe37 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 7 Nov 2020 14:08:36 -0700 Subject: [PATCH] raco decompile: avoid static-generation code Update the decompiler to avoid hard-coding the static-generation numebr, which changed. --- pkgs/compiler-lib/compiler/private/chez.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/pkgs/compiler-lib/compiler/private/chez.rkt b/pkgs/compiler-lib/compiler/private/chez.rkt index 2d746f8dfc..8502479fd5 100644 --- a/pkgs/compiler-lib/compiler/private/chez.rkt +++ b/pkgs/compiler-lib/compiler/private/chez.rkt @@ -49,12 +49,13 @@ (define name (code 'name)) (define $generation (vm-eval '($primitive $generation))) (define $code? (vm-eval '($primitive $code?))) + (define max-gen (vm-eval '(collect-maximum-generation))) (append (apply append (for/list ([v (in-list ((code 'reloc) 'value))] #:unless (and ($code? v) - (= 255 ($generation v)))) + (($generation v) . > . max-gen))) (decompile-value v seen))) (if unwrap-body? (decompile-code-body code)