shithub: fnt

Info  •  Files  •  Log  •  Branches

remove duplicate extra context fields

--- a/gen.rkt

+++ b/gen.rkt

@@ -35,11 +35,10 @@

   (-> symbol? boolean?)

   (regexp-match? #rx"^[A-Z][A-Z0-9_]+$" (symbol->string e)))

-(define/contract (format f)

-  (-> procedure? string?)

+(define (format f #:on-all [allfun identity])

   (define-values (a b) (partition c-typedef? (flatten (map f cmplxs))))

   (define ps (list a b (map f types) ""))

-  (string-join (flatten ps) "\n"))

+  (string-join (allfun (flatten ps)) "\n"))

 (define (fmt-expr e)

   (define (fmt e)

@@ -611,7 +610,7 @@

 EOF

                )

-       (printf (format extra-context-fields))

+       (printf (format extra-context-fields #:on-all remove-duplicates))

        (printf #<<EOF

 };