diff options
| author | jao <jao@gnu.org> | 2022-10-21 03:51:47 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2022-10-21 03:51:47 +0100 |
| commit | 413f16c4fa045f268eea3f94e3f64d9e7b322553 (patch) | |
| tree | ea55fa1d8c7a5955647240a590b9162fc41183a4 | |
| parent | 8f0ffecb430fffc8e32bb49bdc33becfa6846647 (diff) | |
| download | geiser-guile-413f16c4fa045f268eea3f94e3f64d9e7b322553.tar.gz geiser-guile-413f16c4fa045f268eea3f94e3f64d9e7b322553.tar.bz2 | |
formatting and whitespace
| -rw-r--r-- | geiser-guile.el | 12 | ||||
| -rw-r--r-- | readme.org | 2 | ||||
| -rw-r--r-- | 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\\( *\\\\\\)?\\)" @@ -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) |