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

            (intern cli-fns-ns (symbol (name cmd-name)) (:fn cmd-def))))))
    (refer cli-fns-ns)))

(defn create-repl-read-fn
  "This function creates a function that is intended to be used as repl read function.
   The created read function is largely based on the existing repl read function:

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