Permalink
Browse files

Don't quote scoped name in defstat.

  • Loading branch information...
1 parent 3982553 commit 262e5dadefc2d2bad691c8fc54ba220ed79f6133 @technomancy technomancy committed Sep 28, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/pulse/def.clj
View
@@ -248,7 +248,7 @@
:let [scoped-name (scope-stat cloud stat-name)
scoped-var-name (symbol (string/replace scoped-name "." "-"))]]
`(def ~scoped-var-name (assoc ~body-sym
- :name (name '~scoped-name)
+ :name ~scoped-name
:pred-fn (fn [evt#]
(and (= :cloud evt# ~cloud)
((:pred-fn ~body-sym) evt#)))))))))

0 comments on commit 262e5da

Please sign in to comment.