split-metas

pollen/private/split-metas.rkt

@@ -1,18 +1,20 @@
-#lang racket/base
+#lang debug racket/base
+(require racket/match
+         racket/list)
 (provide (all-defined-out))
 
 (define (split-metas x meta-key)
   (apply hasheq
-         (let loop ([x (if (syntax? x) (syntax->datum x) x)])
+         (let loop ([x ((if (syntax? x) syntax->datum values) x)])
-           (cond
+           (match x
-             [(list? x) (cond
+             [(? list? xs)
-                          [(and (= (length x) 3) (eq? (car x) meta-key))
+              (match xs
-                           (unless (symbol? (cadr x))
+                [(list (== meta-key eq?) key val)
-                             (raise-argument-error 'define-meta "valid meta key" (cadr x)))
+                 (unless (symbol? key)
-                           (cdr x)] ; list with meta key and meta value
+                   (raise-argument-error 'define-meta "valid meta key" key))
-                          [else (apply append (map loop x))])]
+                 (list key val)]
-             [else null]))))
+                [_ (append-map loop xs)])]
-
+             [_ null]))))
 
 (module+ test
   (require rackunit)

pollen/private/ts.rktd

@@ -1 +1 @@
-1540858374
+1540858378