diff options
Diffstat (limited to 'src/clojure/contrib')
| -rw-r--r-- | src/clojure/contrib/pred.clj | 10 | ||||
| -rw-r--r-- | src/clojure/contrib/sql.clj | 8 |
2 files changed, 9 insertions, 9 deletions
diff --git a/src/clojure/contrib/pred.clj b/src/clojure/contrib/pred.clj index 9760ec0e..2ec76284 100644 --- a/src/clojure/contrib/pred.clj +++ b/src/clojure/contrib/pred.clj @@ -57,12 +57,12 @@ ;; function? -> fn? -(defmacro macro? - "Returns true if x is a function and the symbol of the - same name can be resolved and has its :macro metadata - set" +(defn macro? + "Returns true if x names a macro" [x] - `(and (fn? ~x) (boolean (:macro ^#'~x)))) + (and (symbol? x) + (boolean + (:macro (meta (resolve x)))))) ;; integer? ;; even? diff --git a/src/clojure/contrib/sql.clj b/src/clojure/contrib/sql.clj index e4dbd5be..33bd2495 100644 --- a/src/clojure/contrib/sql.clj +++ b/src/clojure/contrib/sql.clj @@ -78,10 +78,10 @@ parameter sets" [sql & sets] (with-open [stmt (.prepareStatement (connection) sql)] - (doseq [set sets] - (doseq [[index value] (map vector (iterate inc 1) set)] - (.setObject stmt index value)) - (.addBatch stmt)) + (doseq [set sets + [index value] (map vector (iterate inc 1) set)] + (.setObject stmt index value) + (.addBatch stmt)) (.executeBatch stmt))) (defn create-table |