Permalink
Browse files

Fixed some macro quotation issues

--HG--
extra : transplant_source : %A7%05%9A%9BF%B1g%C9%07%01wu%A5%FD%C9n%1D8%1F%3B
  • Loading branch information...
1 parent f6b41b7 commit 3b40b6b9df7e7ea25b75516ffc338303fa4b8441 @kotarak kotarak committed Jul 3, 2012
Showing with 3 additions and 4 deletions.
  1. +0 −1 autodoc
  2. +1 −1 src/seesaw/event.clj
  3. +2 −2 src/seesaw/options.clj
Submodule autodoc deleted from 6fa04e
View
@@ -264,7 +264,7 @@
(defmacro def-reify-listener
[klass events]
(let [hs (gensym "hs")]
- `(defmethod ~'reify-listener ~klass [c# ~hs]
+ `(defmethod reify-listener ~klass [c# ~hs]
(reify ~klass
~@(for [event events]
`(~(-> event name camelize symbol) [tx# ex#] (fire ~hs ~event ex#)))))))
View
@@ -64,9 +64,9 @@
target (gensym "target")]
`(Option. ~option-name
(fn [~(with-meta target {:tag target-type}) value#]
- (. ~target ~(setter-name bean-property-name) (~(or set-conv 'identity) value#)))
+ (. ~target ~(setter-name bean-property-name) (~(or set-conv `identity) value#)))
(fn [~(with-meta target {:tag target-type})]
- (~(or get-conv 'identity) (. ~target ~(getter-name bean-property-name))))
+ (~(or get-conv `identity) (. ~target ~(getter-name bean-property-name))))
~examples)))
(defn default-option

0 comments on commit 3b40b6b

Please sign in to comment.