CS bootstrap: fix structure-operation simplification

2019-07-05 12:12:13 -06:00 · 2019-07-05 12:12:13 -06:00 · 1e7dbbe020
commit 1e7dbbe020
parent 3235f648fb
1 changed files with 3 additions and 2 deletions
--- 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])