update predicates with POLLEN_MAP_PARENT_KEY

11 years ago · 6c49ef1cbd
parent 783b2fb9fe
commit 6c49ef1cbd
1 changed files with 3 additions and 3 deletions
--- a/predicates.rkt
+++ b/predicates.rkt
@ -179,12 +179,12 @@
 (define/contract (pmap-attr? x)
  (any/c . -> . boolean?)
  (match x
-    [(list `(parent ,(? string?))) #t]
+    [(list `(,POLLEN_MAP_PARENT_KEY ,(? string?))) #t]
    [else #f]))

 (module+ test
-  (check-true (pmap-attr? '((parent "bar"))))
-  (check-false (pmap-attr? '((parent "bar")(foo "bar"))))
+  (check-true (pmap-attr? `((,POLLEN_MAP_PARENT_KEY "bar"))))
+  (check-false (pmap-attr? `((,POLLEN_MAP_PARENT_KEY "bar")(foo "bar"))))
  (check-false (pmap-attr? '())))