Adapt to new ty-field records
This commit is contained in:
parent
468b6541f9
commit
601d60adc3
|
@ -84,7 +84,7 @@
|
|||
(define (top-pat top-name name p ty k-nonrecord)
|
||||
(let ((fields (match ty
|
||||
[(ty-unit) '()]
|
||||
[(ty-record fields) (map escape (map car fields))]
|
||||
[(ty-record fields) (map escape (map ty-field-name fields))]
|
||||
[_ #f])))
|
||||
(if (not fields)
|
||||
(k-nonrecord)
|
||||
|
|
Loading…
Reference in New Issue