           (reader-error rdr "Invalid token:" token)))))
 
 (defn- resolve-ns [sym]
-  (or (find-ns sym)
-      ((ns-aliases *ns*) sym)))
+  (or ((ns-aliases *ns*) sym)
+      (find-ns sym)))
 
 (defn read-keyword
   [reader initch]

(defn- numeric?
  "Checks whether a given character is numeric"
  [^Character ch]
  (Character/isDigit ch))
   
(defn- comment-prefix?
  "Checks whether the character begins a comment."
  [ch]

          (symbol (.getName ^Class o))
          (if (instance? Var o)
            (symbol (-> ^Var o .ns .name name) (-> ^Var o .sym name))))
        (symbol (name (.name *ns*)) (name s))))))

(defn syntax-quote [form]
  (cond
