shithub: fnt

Info  •  Files  •  Log  •  Branches

mkfield: protect against duplicate fields

--- a/otf.rkt

+++ b/otf.rkt

@@ -368,7 +368,9 @@

                          `name

                          (list (mkattr [~@ attrs]) ...))])

          (begin

-           (set! fields (append fields (list (syntax->datum #'(name type)))))

+           (when (assoc (syntax->datum #`name) fields)

+             (raise-syntax-error #f (~a "duplicate field") stx #'name))

+           (set! fields (cons (syntax->datum #'(name type)) fields))

            f)))]))

 (define-syntax (mkfields stx)