Adapt to new ty-field records

2021-06-08 14:13:01 +02:00 · 2021-06-08 14:13:01 +02:00 · 601d60adc3
parent 468b6541f9
commit 601d60adc3
1 changed files with 1 additions and 1 deletions
--- a/syndicate/schema-compiler.rkt
+++ b/syndicate/schema-compiler.rkt
@ -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)