                          (not (contains? excluded* (ns-name (var->ns v))))]
                          k))))
 
-(def symbol-completer-exclude-namespaces (atom ['clojure.core]))
+(def symbol-completer-exclude-namespaces (atom ['clojure.core 'clojure.repl]))
 
 (defn make-symbol-completer
   "Create a symbol completer. Accepts a filter function that will take a

  (select-keys
   map
   [:prompt :input :history :completer :require-match :require-coerce :completions
    :ignore]))

(make-map-constructor
 ^:private make-prompt-
 Prompt
 [:prompt :input :history :completer :require-match :require-coerce :completions
  :ignore])

(defn make-prompt
 "Create a Prompt object. Accepts the following attributes:

;; This is equivalent to the C# coded "eval-expression" command
;; in LispCommands.cs.
;;
;; (defcmd ^{:key-binding "M-:"} eval-expression

;;   "Evaluate a Clojure expression and show its result."
;;   [ ^{:prompt "Eval: " :history "expression" }
;;   ^String expression
;;   ^{:default-value "*eval*"}
;;   ^String buffer-name]
;;   (message-or-buffer buffer-name (trim (repl-eval-print-string expression))))
