 (defn- unquote-cluster [args]
   (walk (fn [item]
           (cond (and (seq? item) (= `unquote (first item)))
-                ,(second item)
+                (second item)
                 (or (seq? item) (symbol? item))
-                ,(list 'quote item)
+                (list 'quote item)
                 :else
-                ,(unquote-cluster item)))
+                (unquote-cluster item)))
         identity
         args))
 

  :ssh-options        a ssh options string,for example \"-o ConnectTimeout=3000\"
  :scp-options       a scp options string
  :rsync-options    a rsync options string.

  Example:
        (set-options! :ssh-options \"-o ConnectTimeout=3000\")

(ns control.core
  #^{ :doc "Clojure control core"
     :author " Dennis Zhuang <killme2008@gmail.com>"}
  (:use [clojure.java.io :only [reader]]
        [clojure.java.shell :only [sh]]
        [clojure.string :only [join blank?]]
