               "Start Geiser for scheme implementation: "))))
    (geiser-repl--start-repl impl))
 
-(defun geiser-connect (impl)
+(defun geiser-connect (impl &optional host port)
   "Start a new Geiser REPL connected to a remote Scheme process."
   (interactive
    (list (or (geiser-repl--only-impl-p)

  "Switch to running Geiser REPL and try to enter a given module."
  (interactive)
  (let* ((module (or module
                     (geiser-completion--read-module "Switch to module: ")))
         (cmd (and module
                   (geiser-repl--enter-cmd geiser-impl--implementation
                                           module))))

                  geiser-impl--implementation)
             (geiser-repl--read-impl
              "Scheme implementation: "))))
  (geiser-repl--start-repl impl t host port))

(make-variable-buffer-local
 (defvar geiser-repl--last-scm-buffer nil))
