larstvei/emacs
1
1
Fork 0
mirror of https://github.com/larstvei/dot-emacs.git synced 2025-09-19 06:40:12 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Adjust scheme setup

Browse Source
This commit is contained in:
larstvei 2025-09-02 17:04:13 +02:00
parent 916c2b8446
commit 2b5f461de6
1 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
init.org
View File

@ -1635,22 +1635,22 @@
(use-package geiser-gambit
:config
(defun geiser-r5rs--enter (_remote)
"Clear the debugger on entry.
The REPL starts in a debug mode. Exit it on entry."
",d")
(defconst geiser-r5rs-minimum-version "v4.9.0")
(defun geiser-r5rs--parameters ()
"Return a list with all parameters needed to start Gambit scheme-r5rs."
(list "-:d-,r5rs"
(expand-file-name "geiser/gambit.scm" geiser-gambit-scheme-dir)
"-"))
(defun geiser-r5rs--arglist ()
"Return a list of arguments given to gsi.
Ensures R5RS and support for Geiser."
`("-:d-,r5rs"
,(expand-file-name "geiser/gambit.scm" geiser-gambit-scheme-dir)
"-"))
(define-geiser-implementation (r5rs gambit)
(arglist geiser-r5rs--parameters)
(enter-command geiser-r5rs--enter))
(define-geiser-implementation
(r5rs gambit)
(minimum-version geiser-r5rs-minimum-version)
(arglist geiser-r5rs--arglist))
(geiser-activate-implementation 'r5rs)
(setq geiser-repl-add-project-paths nil)
(provide 'geiser-r5rs))