branch: elpa/geiser-chez
commit 111ecdd4d4f0d6ee668d3a7b1b2d6d0cba2c4b01
Author: jao <j...@gnu.org>
Commit: jao <j...@gnu.org>
scheme load path adjustments
---
geiser-chez.el | 14 +++++++++++++-
1 file changed, 13 insertions(+), 1 deletion(-)
diff --git a/geiser-chez.el b/geiser-chez.el
index 3d4b495..af2dad6 100644
--- a/geiser-chez.el
+++ b/geiser-chez.el
@@ -1,5 +1,13 @@
;;; geiser-chez.el -- Chez Scheme's implementation of the geiser protocols
+;; Author: Peter <cra...@gmx.net>
+;; Maintainer:
+;; Keywords: languages, chez, scheme, geiser
+;; Homepage: https://gitlab.com/emacs-geiser/chez
+;; Package-Requires: ((emacs "24.4") (geiser-core "1.0"))
+;; SPDX-License-Identifier: BSD-3-Clause
+;; Version: 0.1
+
;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the Modified BSD License. You should
;; have received a copy of the license along with this program. If
@@ -53,13 +61,17 @@
(car geiser-chez-binary)
geiser-chez-binary))
+(defvar geiser-chez-scheme-dir
+ (expand-file-name "src" (file-name-nondirectory load-file-name))
+ "Directory where the Chez scheme geiser modules are installed.")
+
(defun geiser-chez--parameters ()
"Return a list with all parameters needed to start Chez Scheme.
This function uses `geiser-chez-init-file' if it exists."
(let ((init-file (and (stringp geiser-chez-init-file)
(expand-file-name geiser-chez-init-file))))
`(,@(and init-file (file-readable-p init-file) (list init-file))
- ,(expand-file-name "chez/geiser/geiser.ss" geiser-scheme-dir)
+ ,(expand-file-name "geiser/geiser.ss" geiser-chez-scheme-dir)
,@geiser-chez-extra-command-line-parameters)))
(defconst geiser-chez--prompt-regexp "> ")
