summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2020-03-11 22:30:44 -0700
committerKaz Kylheku <kaz@kylheku.com>2020-03-11 22:30:44 -0700
commitd421b89887d226e029ec4bd59586b3f991e2fa4b (patch)
tree3beff3cecf7dd335af776f9673ad38316d8c1887
parentc89718f81e3a5686396c932317bce77dc138bf42 (diff)
downloadtxr-d421b89887d226e029ec4bd59586b3f991e2fa4b.tar.gz
txr-d421b89887d226e029ec4bd59586b3f991e2fa4b.tar.bz2
txr-d421b89887d226e029ec4bd59586b3f991e2fa4b.zip
tags: missing eval in macro.
* tags.tl (static-when): Macro must explicitly reduce expression to its value.
-rwxr-xr-xtags.tl2
1 files changed, 1 insertions, 1 deletions
diff --git a/tags.tl b/tags.tl
index 03574107..ec7643b5 100755
--- a/tags.tl
+++ b/tags.tl
@@ -148,7 +148,7 @@
(defvarl ftw-skip-subtree 0)
(defmacro static-when (expr . body)
- (when expr ^(progn ,*body)))
+ (when (eval expr) ^(progn ,*body)))
(compile-only
(let ((o (new tags-opts)))