app-emacs/geiser-chicken/files/geiser-chicken-scheme-dir.patch


1
2
3
4
5
6
7
8
9
10
11

--- a/geiser-chicken.el
+++ b/geiser-chicken.el
@@ -123,7 +123,7 @@ this variable to t."
 ;;; REPL support:
 
 (defvar geiser-chicken-scheme-dir
-  (expand-file-name "src" (file-name-directory load-file-name))
+  (expand-file-name "src" "@SITEETC@")
   "Directory where the Chicken scheme geiser modules are installed.")
 
 (defun geiser-chicken--binary ()