From 6c49ef1cbd2d856d91274039db97708eec6abfc7 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Tue, 20 Aug 2013 23:41:16 -0700 Subject: [PATCH] update predicates with POLLEN_MAP_PARENT_KEY --- predicates.rkt | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/predicates.rkt b/predicates.rkt index e1b6e5d..a233058 100644 --- 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? '())))