Compile rules at runtime

clj-commons · Mar 11, 2013 · 61c5f27 · 61c5f27
1 parent 665fbc2
commit 61c5f27
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/src/kibit/rules/util.clj b/src/kibit/rules/util.clj
@@ -10,8 +10,8 @@
   (not (vector? rule)))
 
 (defmacro defrules [name & rules]
-  (let [rules (for [rule rules]
-                (if (raw-rule? rule)
-                  rule ;; raw rule, no need to compile
-                  (compile-rule rule)))]
-    (list 'def name (vec rules))))
+  `(let [rules# (for [rule# '~rules]
+                  (if (raw-rule? rule#)
+                    rule# ;; raw rule, no need to compile
+                    (compile-rule rule#)))]
+     (def ~name (vec rules#))))