                 (or (not= @last-height current-height) (not= @last-width current-width)))
           (reset! last-height current-height)
           (reset! last-width current-width)
-          (set-up-alternate-scrolling @last-height @last-width alternate-height prompt-string in-rdr))
+          (set-up-alternate-scrolling @last-height @last-width alternate-height alternate-scroll-separator prompt-string in-rdr))
         (if (not (nil? file-history))
           (.flush file-history))
         (if (and (not (nil? line))


        alternate-scrolling (opts :alternate-scrolling)
        alternate-height (opts :alternate-height)
        term (TerminalFactory/create)
        ansi-support (.isAnsiSupported term)
        last-height (atom (.getHeight term))
        last-width (atom (.getWidth term))]
    (when (and alternate-scrolling ansi-support)
      (set-up-alternate-scrolling @last-height @last-width alternate-height prompt-string in-rdr))
    (fn [request-prompt request-exit]
      (let [line (.readLine in-rdr)
            current-height (.getHeight term)

   :prompt-fn (fn [])
   :prompt-string "cli# "
   :alternate-scrolling false
   :alternate-height 3
   :alternate-scroll-separator "\u203E"})

(defn merge-options
  "This function merges the user supplied configuration options with the default and mandatory default options.
