From 413f16c4fa045f268eea3f94e3f64d9e7b322553 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Fri, 21 Oct 2022 03:51:47 +0100
Subject: formatting and whitespace

---
 geiser-guile.el      | 12 ++++++------
 readme.org           |  2 +-
 src/geiser/emacs.scm |  6 +++---
 3 files changed, 10 insertions(+), 10 deletions(-)

diff --git a/geiser-guile.el b/geiser-guile.el
index 6db40fa..750aa90 100644
--- a/geiser-guile.el
+++ b/geiser-guile.el
@@ -1,4 +1,4 @@
-;;; geiser-guile.el --- Guile's implementation of the geiser protocols  -*- lexical-binding: t; -*-
+;;; geiser-guile.el --- Guile and Geiser talk to each other  -*- lexical-binding: t; -*-
 
 ;; Copyright (C) 2009-2022 Jose Antonio Ortega Ruiz
 ;; Start date: Sun Mar 08, 2009 23:03
@@ -39,7 +39,7 @@
                    (require 'tramp))
 
 
-;;; Customization:
+;;; Customization
 
 (defgroup geiser-guile nil
   "Customization for Geiser's Guile flavour."
@@ -164,7 +164,7 @@ effect on new REPLs.  For existing ones, use the command
   :type '(repeat string))
 
 
-;;; REPL support:
+;;; REPL support
 
 (defun geiser-guile--binary ()
   "Return the name of the Guile binary to execute."
@@ -265,7 +265,7 @@ This function uses `geiser-guile-init-file' if it exists."
           "\\(\nEntering a new prompt.  Type `,bt' for [^\n]+\\.$\\)"))
 
 
-;;; Evaluation support:
+;;; Evaluation support
 (defsubst geiser-guile--linearize-args (args)
   "Concatenate the list ARGS."
   (mapconcat 'identity args " "))
@@ -379,7 +379,7 @@ This function uses `geiser-guile-init-file' if it exists."
     (and (stringp f) (list f))))
 
 
-;;; Error display
+;;; Error display and debugger
 
 (defun geiser-guile--set-up-error-links ()
   (setq-local compilation-error-regexp-alist
@@ -403,7 +403,7 @@ This function uses `geiser-guile-init-file' if it exists."
   (not (zerop (length msg))))
 
 
-;;; Trying to ascertain whether a buffer is Guile Scheme:
+;;; Trying to ascertain whether a buffer is Guile Scheme
 
 (defconst geiser-guile--guess-re
   (format "\\(%s\\|#! *.+\\(/\\| \\)guile\\( *\\\\\\)?\\)"
diff --git a/readme.org b/readme.org
index 538be89..79e6fd9 100644
--- a/readme.org
+++ b/readme.org
@@ -12,7 +12,7 @@ This package provides support for using [[https://www.gnu.org/software/guile/][G
 
 Provided [[https://gitlab.com/emacs-geiser/geiser][geiser]] is installed in your system, if this package's
 directory is in your load path, just add ~(require 'geiser-guile)~ to
-your initialisation files and then ~M-x run-guile~ to start a REPL.
+your initialisation files and then ~M-x geiser-guile~ to start a REPL.
 Scheme files with a Guile module declaration should be automatically
 recognised as Guile-flavoured Geiser buffers.
 
diff --git a/src/geiser/emacs.scm b/src/geiser/emacs.scm
index 4ef58d5..c116968 100644
--- a/src/geiser/emacs.scm
+++ b/src/geiser/emacs.scm
@@ -38,9 +38,9 @@ Meta-command used by Geiser to evaluate and compile code."
   (let ((args (syntax->datum args))
         (mod (syntax->datum mod)))
     (if (null? args)
-	(call-with-error-handling
-	 (lambda () (ge:compile form mod)))
-	(let ((proc (eval form this-module)))
+        (call-with-error-handling
+         (lambda () (ge:compile form mod)))
+        (let ((proc (eval form this-module)))
           (ge:eval `(,proc ,@args) mod)))))
 
 (define-meta-command ((geiser-load-file geiser) repl file)
-- 
cgit v1.2.3