cark

(defmacro safe-agent [& body]
  `(try
    ~@body
    (catch Exception e#
      (log [:agent :error] {:exception (str e#)
			    :agent (with-out-str (pr @*agent*))})
      @*agent*)))

cark

(ns anagrams
  (:use [clojure.contrib.str-utils])
  (:require [clojure.contrib.str-utils2 :as su])
  (:use [clojure.test]))

(set! *warn-on-reflection* true)

(defn contains-vowel? [w]
  (some #(su/contains? w %)
        (list "a" "e" "i" "o" "u" "y")))