register-finalizer-and-custodian-shutdown does not run finalizer in Racket CS

[samdphillips]

What version of Racket are you using?

7.8 [cs]

What program did you run?

#lang racket/base

;; finalized-simple.rkt

(require ffi/unsafe/custodian)

;; hijack name for logging
(define (log-info x)
  (log-message (current-logger) 'info 'finalize x))

(define (finalize x)
  (log-info "finalizing"))

(define the-box
  (let ([v "a value"])
    (register-finalizer-and-custodian-shutdown v finalize #:at-exit? #t)
    (log-info "created")
    (box v)))

(module* A #f
  (set-box! the-box #f)
  (collect-garbage 'major)
  (collect-garbage 'major)
  (collect-garbage 'major)
  (log-info "exiting"))

(module* B #f
  (log-info "exiting"))

What should have happened?

Running either submodule should run the finalize procedure. This works in 7.8[bc] but not 7.8[cs].

Racket 7.8[cs]

$ PLTSTDERR="info@finalize" racket -e '(require (submod "finalized-simple.rkt" A))'
finalize: created
finalize: exiting
$ PLTSTDERR="info@finalize" racket -e '(require (submod "finalized-simple.rkt" B))'
finalize: created
finalize: exiting

Racket 7.8[bc] - works

$ PLTSTDERR="info@finalize" racket -e '(require (submod "finalized-simple.rkt" A))'
finalize: created
finalize: exiting
finalize: finalizing
$ PLTSTDERR="info@finalize" racket -e '(require (submod "finalized-simple.rkt" B))'
finalize: created
finalize: exiting
finalize: finalizing

Please include any other relevant details

Linux 5.4.0-42-generic x86_64
Ubuntu 20.04.1 LTS

Racket 7.8[cs] installed from Racket Linux Installer

[mflatt]

The repair wasn't right: bf06162.