aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--who.tl7
1 files 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