From dd74d5dff3db6461539c6d29ce980cef0e9a6ed7 Mon Sep 17 00:00:00 2001
From: Brian Leung <leungbk@mailfence.com>
Date: Fri, 9 Oct 2020 16:36:22 -0700
Subject: [PATCH] Placate byte-compiler

---
 elisp/geiser-chicken.el | 2 +-
 elisp/geiser-debug.el   | 2 ++
 elisp/geiser-doc.el     | 2 ++
 elisp/geiser-guile.el   | 2 ++
 elisp/geiser-repl.el    | 2 ++
 5 files changed, 9 insertions(+), 1 deletion(-)

diff --git a/elisp/geiser-chicken.el b/elisp/geiser-chicken.el
index 8c279c9..3e5ad19 100644
--- a/elisp/geiser-chicken.el
+++ b/elisp/geiser-chicken.el
@@ -214,7 +214,7 @@ This function uses `geiser-chicken-init-file' if it exists."
 (defun geiser-chicken--external-help (id module)
   "Loads chicken doc into a buffer"
   (let* ((version (geiser-chicken--version (geiser-chicken--binary)))
-	 (major-version (first (split-string version "\\\."))))
+	 (major-version (car (split-string version "\\\."))))
     (browse-url (format "http://api.call-cc.org/%s/cdoc?q=%s&query-name=Look+up" major-version id))))
 
 
diff --git a/elisp/geiser-debug.el b/elisp/geiser-debug.el
index d2e91ec..ca51748 100644
--- a/elisp/geiser-debug.el
+++ b/elisp/geiser-debug.el
@@ -136,6 +136,8 @@ buffer.")
         (newline 2)
         (and no (> no 0))))))
 
+(declare-function switch-to-geiser "geiser-repl")
+
 (defun geiser-debug--display-retort (what ret &optional res auto-p)
   (let* ((err (geiser-eval--retort-error ret))
          (key (geiser-eval--error-key err))
diff --git a/elisp/geiser-doc.el b/elisp/geiser-doc.el
index d7210f6..edd6dab 100644
--- a/elisp/geiser-doc.el
+++ b/elisp/geiser-doc.el
@@ -288,6 +288,8 @@ help (e.g. browse an HTML page) implementing this method.")
     map)
   "Keymap for `geiser-doc-mode'.")
 
+(declare-function switch-to-geiser "geiser-repl")
+
 (defun geiser-doc-switch-to-repl ()
   (interactive)
   (switch-to-geiser nil nil (current-buffer)))
diff --git a/elisp/geiser-guile.el b/elisp/geiser-guile.el
index 2d22dbc..b3bd9c9 100644
--- a/elisp/geiser-guile.el
+++ b/elisp/geiser-guile.el
@@ -365,6 +365,8 @@ it spawn a server thread."
                        'done)))
     (geiser-eval--send/wait code)))
 
+(defvar geiser-repl--last-scm-buffer)
+
 (defun geiser-guile--startup (remote)
   (set (make-local-variable 'compilation-error-regexp-alist)
        `((,geiser-guile--path-rx geiser-guile--resolve-file-x)
diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el
index a576beb..c41f05d 100644
--- a/elisp/geiser-repl.el
+++ b/elisp/geiser-repl.el
@@ -515,6 +515,8 @@ module command as a string")
       (when (and v r (geiser--version< v r))
         (error "Geiser requires %s version %s but detected %s" impl r v)))))
 
+(defvar geiser-repl--last-scm-buffer)
+
 (defun geiser-repl--start-repl (impl address)
   (message "Starting Geiser REPL ...")
   (when (not address) (geiser-repl--check-version impl))
-- 
2.11.4.GIT