     (define-key map "\C-x\C-e" #'inf-carp-eval-last-sexp)
     (define-key map "\C-c\C-l" #'inf-carp-load-file)
     (define-key map "\C-c\C-a" #'inf-carp-show-arglist)
-    (define-key map "\C-c\C-v" #'inf-carp-show-var-documentation)
+    (define-key map "\C-c\C-t" #'inf-carp-show-var-type)
     (define-key map "\C-c\C-s" #'inf-carp-show-var-source)
     (define-key map "\C-c\M-o" #'inf-carp-clear-repl-buffer)
     (easy-menu-define inf-carp-mode-menu map

        ["Set REPL ns" inf-carp-set-ns t]
        "--"
        ["Show arglist" inf-carp-show-arglist t]
        ["Show documentation for var" inf-carp-show-var-documentation t]
        ["Show source for var" inf-carp-show-var-source t]
        ["Show vars in ns" inf-carp-show-ns-varst]
        ["Apropos" inf-carp-apropos t]

  "Return the name of the symbol at point, otherwise nil."
  (or (thing-at-point 'symbol) ""))

(defun inf-carp-build ()
  "Send a command to the inferior Carp to build a form.
See variable `inf-carp-var-build-command'."
  (interactive)
  (comint-proc-query (inf-carp-proc) (format inf-carp-build-command)))

(defun inf-carp-build-and-run ()
  "Send a command to the inferior Carp to build a form.
See variable `inf-carp-var-build-command'."
  (interactive)
  (inf-carp-eval-buffer)
  (comint-proc-query (inf-carp-proc) (format inf-carp-build-and-run-command)))

(defun inf-carp-bake (var)
  "Send a command to the inferior Carp to bake a form.
See variable `inf-carp-var-bake-command'."
