From fd17224249ec084bd38923e6690c71153c4c76a3 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Thu, 31 Dec 2015 11:54:28 -0800 Subject: [PATCH] tweak --- main.rkt | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/main.rkt b/main.rkt index 97c28a3..664c175 100644 --- a/main.rkt +++ b/main.rkt @@ -141,9 +141,7 @@ (validate-txexpr-attrs-with-context (get-attrs x)) (andmap (λ(e) (validate-txexpr-element-with-context e)) (get-elements x)) x)] [(and (list? x) (symbol? (car x))) - (and - (validate-txexpr-attrs-with-context (get-attrs x)) - (andmap (λ(e) (validate-txexpr-element-with-context e)) (get-elements x)) x)] + (andmap (λ(e) (validate-txexpr-element-with-context e)) (get-elements x))] [(list? x) (error 'validate-txexpr (format "~v is a list but it doesn't start with a symbol" x))] [else (error 'validate-txexpr (format "~v: not an X-expression" x))]))