 See variable `inf-carp-var-type-command'."
   (interactive (inf-carp-symprompt "Var type" (inf-carp-var-at-pt)))
   (comint-proc-query (inf-carp-proc) (format inf-carp-var-type-command var)))
-
-(defun inf-carp-show-var-source (var)
-  "Send a command to the inferior Carp to give source for VAR.
-See variable `inf-carp-var-source-command'."
-  (interactive (inf-carp-symprompt "Var source" (inf-carp-var-at-pt)))
-  (comint-proc-query (inf-carp-proc) (format inf-carp-var-source-command var)))
 
 (defun inf-carp-arglist (fn)
   "Send a query to the inferior Carp for the arglist for function FN.

   (t str)))

(defvar inf-carp-project-root-files
  '("project.clj" "build.boot" "project.carp")
  "A list of files that can be considered project markers.")

(defun inf-carp-project-root ()

        ["Switch to REPL" inf-carp-switch-to-repl t]
        ["Set REPL ns" inf-carp-set-ns t]
        "--"
        ;;["Show documentation for var" inf-carp-show-var-documentation t]
        ["Macroexpand" inf-carp-macroexpand t]))
    map))

