simplify

pollen/private/split-metas.rkt

@@ -7,13 +7,11 @@
   (apply hasheq
          (let loop ([x ((if (syntax? x) syntax->datum values) x)])
            (match x
-             [(? list? xs)
-              (match xs
              [(list (== meta-key eq?) key val)
               (unless (symbol? key)
                 (raise-argument-error 'define-meta "valid meta key" key))
               (list key val)]
-                [_ (append-map loop xs)])]
+             [(? list? xs) (append-map loop xs)]
              [_ null]))))
 
 (module+ test

pollen/private/ts.rktd

@@ -1 +1 @@
-1540962551
+1541019731