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
commit2ac521b48f9bc2f5f4bb6eb4b92eee9433e62995 (patch)
tree3beff3cecf7dd335af776f9673ad38316d8c1887
parentbbb650af0c211ef35580daecd975a096e71b0b3a (diff)
downloadtxr-2ac521b48f9bc2f5f4bb6eb4b92eee9433e62995.tar.gz
txr-2ac521b48f9bc2f5f4bb6eb4b92eee9433e62995.tar.bz2
txr-2ac521b48f9bc2f5f4bb6eb4b92eee9433e62995.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)))