     (fn [request-prompt request-exit]
       (try
         (or ({:line-start request-prompt :stream-end request-exit}
-             (skip-whitespace *in*))
+             (main/skip-whitespace *in*))
             (loop [v []]
               (let [input (try
                             (read {:read-cond :allow} *in*)

    :doc "cli4clj allows to create simple interactive command line interfaces for Clojure applications.
          For an example usage scenario please see the namespace cli4clj.example."}
  cli4clj.cli
  (:use
    [clojure.main :only [repl skip-if-eol skip-whitespace]]
    [clojure.string :only [blank? split]])
  (:require
    (clj-assorted-utils [util :as utils])
    (clojure [stacktrace :as strace]))
  (:import
    (java.io PushbackReader StringReader)
    (jline.console ConsoleReader)

                                  (throw e)))))]
                (if (and (not (symbol? input)) (empty? v))
                  (do
                    (main/skip-if-eol *in*)
                    input)
                  (if (= :line-start (main/skip-whitespace *in*))
                    (if (and (symbol? input)
                             (some #(= (keyword input) %) quit-commands))
                      request-exit
