blob: b761773ddb0b538a747fc454520dff622e49f28d (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
--- a/geiser-gambit.el
+++ b/geiser-gambit.el
@@ -304,7 +304,7 @@ If t, Geiser will use `next-error' to jump to the error's location."
binary)))
(defvar geiser-gambit-scheme-dir
- (expand-file-name "src/" (file-name-directory load-file-name))
+ (expand-file-name "src/" "@SITEETC@")
"Directory where the Gambit scheme geiser modules are installed.")
(defun geiser-gambit--parameters ()
|
