   (select-keys
    map
    [:prompt :input :history :completer :require-match :require-coerce :completions
-    :ignore]))
+    :ignore :default-value]))
 
 (make-map-constructor
  ^:private make-prompt-
  Prompt
  [:prompt :input :history :completer :require-match :require-coerce :completions
-  :ignore])
+  :ignore :default-value])
 
 (defn make-prompt
  "Create a Prompt object. Accepts the following attributes:

                         (not (contains? excluded* (ns-name (var->ns v))))]
                         k))))

(def symbol-completer-exclude-namespaces (atom ['clojure.core]))

(defn make-symbol-completer
  "Create a symbol completer. Accepts a filter function that will take a

   ^Symbol function]
   ;(log "type df " (type function))
   (if-let [var (ns-resolve (:*ns* @repl-env) function)]
           #_(eval-expression (format "(doc %s)" (name function))
                            "*doc*")
           (message-or-buffer "*doc*"
                              (trim (with-out-str
                                     (with-repl-ns
