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)
+             [(list (== meta-key eq?) key val)
-              (match xs
+              (unless (symbol? key)
-                [(list (== meta-key eq?) key val)
+                (raise-argument-error 'define-meta "valid meta key" key))
-                 (unless (symbol? key)
+              (list key val)]
-                   (raise-argument-error 'define-meta "valid meta key" key))
+             [(? list? xs) (append-map loop xs)]
-                 (list key val)]
-                [_ (append-map loop xs)])]
              [_ null]))))
 
 (module+ test

pollen/private/ts.rktd

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