suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

CS bootstrap: fix structure-operation simplification

Browse Source
This commit is contained in:
Matthew Flatt 2019-07-05 12:12:13 -06:00
parent 3235f648fb
commit 1e7dbbe020
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
racket/src/cs/bootstrap/record.rkt
View File

@ -202,8 +202,9 @@
(let () (let ()
(define-values (r-name init-cnt auto-cnt ref set immutables super skipped?) (define-values (r-name init-cnt auto-cnt ref set immutables super skipped?)
(struct-type-info rtd)) (struct-type-info rtd))
(or (not super) (if super
(base-rtd-subtype-rtd? super))))) (base-rtd-subtype-rtd? super)
#f))))
;; `i` does not count parent fields ;; `i` does not count parent fields
(define (record-accessor rtd i [name #f]) (define (record-accessor rtd i [name #f])