   #?(:clj (some is-repl-stack-element (current-stack-trace))
      :cljs nil))
 
+(defn select-op-options
+  "Given an options map, return an options map with only the operational
+  options remaining."
+  [options]
+  (select-keys options operational-options))
+
 ;;
 ;; End "detect in a REPL" code
 

  [existing new]
  (reduce replace-existing existing new))

(defn select-op-options
  "Given an options map, return an options map with only the operational
  options remaining."
  [options]
  (select-keys options operational-options))

;;
;; # Configure one map
;;

                          new-options))
  ([new-options]
   (config-set-options! new-options
                        (str "repl or api call " (inc-explained-sequence))
                        (select-op-options new-options)))
  ([new-options doc-str]
   (config-set-options! new-options doc-str (select-op-options new-options))))

;;
;; # Options Validation Functions
