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)
|
(define (top-pat top-name name p ty k-nonrecord)
|
||||||
(let ((fields (match ty
|
(let ((fields (match ty
|
||||||
[(ty-unit) '()]
|
[(ty-unit) '()]
|
||||||
[(ty-record fields) (map escape (map car fields))]
|
[(ty-record fields) (map escape (map ty-field-name fields))]
|
||||||
[_ #f])))
|
[_ #f])))
|
||||||
(if (not fields)
|
(if (not fields)
|
||||||
(k-nonrecord)
|
(k-nonrecord)
|
||||||
|
|
Loading…
Reference in New Issue