 (defn- numeric?
   "Checks whether a given character is numeric"
   [^Character ch]
-  (Character/isDigit ch))
-   
+  (if 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 *ns*) (name s))))))

(defn syntax-quote [form]
  (cond

  "Reads one object from the string s"
  [s]
  (read (string-push-back-reader s) true nil false))
