diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2023-05-30 19:45:02 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2023-05-30 19:45:02 -0700 |
| commit | 5170cb3fc64501655432452520c8d30a224c47bc (patch) | |
| tree | 16297823e8ec561829e36aca888db22de810e369 | |
| parent | 8a3b6c735d7640117e5c80f5bb7e84e6c2997c51 (diff) | |
| download | tl-who-5170cb3fc64501655432452520c8d30a224c47bc.tar.gz tl-who-5170cb3fc64501655432452520c8d30a224c47bc.tar.bz2 tl-who-5170cb3fc64501655432452520c8d30a224c47bc.zip | |
Refactor attribute warning macro.
* who.tl (attr-warning-macrolet): Reduce repeated code by
iterating over a list of symbols.
| -rw-r--r-- | who.tl | 7 |
1 files changed, 2 insertions, 5 deletions
@@ -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 |