branch: elpa/geiser-guile
commit 413f16c4fa045f268eea3f94e3f64d9e7b322553
Author: jao <j...@gnu.org>
Commit: jao <j...@gnu.org>
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 6db40fa057..750aa900dc 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 538be89a34..79e6fd952f 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 4ef58d5923..c116968add 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)
