From 204d8e0f29cdf6948314c82e4af9c8088ab22dc5 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Thu, 13 Mar 2014 11:01:34 -0700 Subject: [PATCH] updates --- main.rkt | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/main.rkt b/main.rkt index 885c56b..5767864 100644 --- a/main.rkt +++ b/main.rkt @@ -34,13 +34,13 @@ (format "because ~v is not a list" x) (let ([bad-attrs (filter (λ(i) (not (txexpr-attr? i))) x)]) (format "because ~a ~a" (string-join (map (λ(ba) (format "~v" ba)) bad-attrs) " and ") (if (> (length bad-attrs) 1) - "are not valid txexpr-attrs" - "is not a valid attr"))))) + "are not valid attributes" + "is not in the form (list symbol? string?)"))))) (match x [(list (? txexpr-attr?) ...) x] [else [else (error (string-append "validate-txexpr-attrs: " (if txexpr-context (format "in ~v, " txexpr-context) "") - (format "~v is not a valid list of attrs ~a" x (make-reason))))]])) + (format "~v is not a valid list of attributes ~a" x (make-reason))))]])) (define+provide+safe (txexpr-attrs? x) (any/c . -> . boolean?)