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

22
init.org
View File

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