   (interactive)
   (go-oracle--run "freevars"))
 
-(defun go-oracle-channel-peers ()
+(defun go-oracle-peers ()
   "Enumerate the set of possible corresponding sends/receives for
 this channel receive/send operation."
   (interactive)

      (insert "\n")
      (compilation-mode)
      (setq compilation-error-screen-columns nil)
      (let ((w (display-buffer (current-buffer))))
        (balance-windows)
        (shrink-window-if-larger-than-buffer w)
        (set-window-point w (point-min)))

      ;; Hide the file/line info to save space.
      ;; Replace each with a little widget.

                  (goto-char np)
                  (insert " ")))
            (setq p np)))
        (message nil))

      (let ((w (display-buffer (current-buffer))))
        (balance-windows)
        (shrink-window-if-larger-than-buffer w)
        (set-window-point w (point-min))))))

(defun go-oracle-callees ()
  "Show possible callees of the function call at the current point."
