diff --git a/pom.xml b/pom.xml index bf12dbf..6229a76 100644 --- a/pom.xml +++ b/pom.xml @@ -93,6 +93,11 @@ org.clojure clojure + + org.clojure + tools.macro + 0.1.1 + jline jline diff --git a/src/pallet/thread_expr.clj b/src/pallet/thread_expr.clj index 227d2eb..db6103a 100644 --- a/src/pallet/thread_expr.clj +++ b/src/pallet/thread_expr.clj @@ -1,6 +1,6 @@ (ns pallet.thread-expr "Macros that can be used in an expression thread." - (:require [clojure.contrib.macro-utils :as macro])) + (:require [clojure.tools.macro :as macro])) (letfn [(for- [threader arg seq-exprs body] `(reduce #(%2 %1) @@ -379,7 +379,7 @@ (+ x y))) (+ 1)) => 12 - + (--> 5 (expose-request-as [x] (+ x)) (+ 1)) @@ -419,7 +419,7 @@ (+ x y))) (+ 1)) => 12 - + (-->> 5 (expose-request-as [x] (+ x)) (+ 1)) diff --git a/test/pallet/thread_expr_test.clj b/test/pallet/thread_expr_test.clj index 4ca5981..ef4e8a0 100644 --- a/test/pallet/thread_expr_test.clj +++ b/test/pallet/thread_expr_test.clj @@ -49,7 +49,7 @@ (deftest let->>test (is (= 2) (->> 1 (let->> [a 1] (+ a))))) -(def *a* 0) +(def ^{:dynamic true} *a* 0) (deftest binding->test (is (= 2) (-> 1 (binding-> [*a* 1] (+ *a*)))))