Nit.

2 files changed, 4 insertions, 4 deletions

diff --git a/elisp/geiser-mode.el b/elisp/geiser-mode.el
index 7004004..083d90a 100644
--- a/elisp/geiser-mode.el
+++ b/elisp/geiser-mode.el
@@ -149,7 +149,7 @@ With prefix, recursively macro-expand the resulting expression."
   (interactive)
   (let ((impl (geiser-impl--read-impl)))
     (geiser-impl--set-buffer-implementation impl)
-    (geiser-repl--get-repl impl)))
+    (geiser-repl--set-up-repl impl)))
 
 (defun geiser-mode-switch-to-repl (arg)
   "Switches to Geiser REPL.
diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el
index 9e36fa4..a68f6c9 100644
--- a/elisp/geiser-repl.el
+++ b/elisp/geiser-repl.el
@@ -102,7 +102,7 @@ implementation name gets appended to it."
         (when (eq geiser-impl--implementation impl)
           (throw 'repl repl))))))
 
-(defun geiser-repl--get-repl (&optional impl)
+(defun geiser-repl--set-up-repl (impl)
   (or (and (not impl) geiser-repl--repl)
       (setq geiser-repl--repl
             (let ((impl (or impl
@@ -185,7 +185,7 @@ you at that point.")
     (geiser-repl--startup impl)))
 
 (defun geiser-repl--process ()
-  (let ((buffer (geiser-repl--get-repl geiser-impl--implementation)))
+  (let ((buffer (geiser-repl--set-up-repl geiser-impl--implementation)))
     (or (and (buffer-live-p buffer) (get-buffer-process buffer))
         (error "No Geiser REPL for this buffer (try M-x run-geiser)"))))
 
@@ -316,7 +316,7 @@ module command as a string")
         (with-current-buffer buffer
           (when (and (eq geiser-impl--implementation impl)
                      (equal cb geiser-repl--repl))
-            (geiser-repl--get-repl geiser-impl--implementation)))))))
+            (geiser-repl--set-up-repl geiser-impl--implementation)))))))
 
 (defun geiser-repl--sentinel (proc event)
   (let ((pb (process-buffer proc)))