From 5170cb3fc64501655432452520c8d30a224c47bc Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Tue, 30 May 2023 19:45:02 -0700 Subject: Refactor attribute warning macro. * who.tl (attr-warning-macrolet): Reduce repeated code by iterating over a list of symbols. --- who.tl | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/who.tl b/who.tl index 90932f5..8ec502d 100644 --- a/who.tl +++ b/who.tl @@ -90,11 +90,8 @@ ^(macrolet ((,warn (f . rest) ^(compile-warning ,f "not recommended in attribute expr"))) - (macrolet ((htm (:form f . rest) (,warn f) f) - (noesc-fmt (:form f . rest) (,warn f) f) - (fmt (:form f . rest) (,warn f) f) - (esc (:form f . rest) (,warn f) f) - (str (:form f . rest) (,warn f) f)) + (macrolet ,(collect-each ((sym '(htm noesc-fmt fmt esc str))) + ^(,sym (:form f . rest) (,warn f) f)) ,form)))) ;; Helper function for convert-tag-to-string-list which converts the -- cgit v1.2.3