From 1e7dbbe020d7e8fba74d96f3eece928a527bbf66 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 5 Jul 2019 12:12:13 -0600 Subject: [PATCH] CS bootstrap: fix structure-operation simplification --- racket/src/cs/bootstrap/record.rkt | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/racket/src/cs/bootstrap/record.rkt b/racket/src/cs/bootstrap/record.rkt index 6f386fbb6e..c138cf1f48 100644 --- a/racket/src/cs/bootstrap/record.rkt +++ b/racket/src/cs/bootstrap/record.rkt @@ -202,8 +202,9 @@ (let () (define-values (r-name init-cnt auto-cnt ref set immutables super skipped?) (struct-type-info rtd)) - (or (not super) - (base-rtd-subtype-rtd? super))))) + (if super + (base-rtd-subtype-rtd? super) + #f)))) ;; `i` does not count parent fields (define (record-accessor rtd i [name #f])