branch: elpa/geiser-chicken
commit d69c1ead25b132ed65a8faecd7954d89761c1fd0
Author: Dan Leslie <[email protected]>
Commit: Jose Antonio Ortega Ruiz <[email protected]>

    Removed more unused code, speeding things up.
---
 elisp/geiser-chicken.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/elisp/geiser-chicken.el b/elisp/geiser-chicken.el
index 078db57..35b139f 100644
--- a/elisp/geiser-chicken.el
+++ b/elisp/geiser-chicken.el
@@ -270,9 +270,9 @@ This function uses `geiser-chicken-init-file' if it exists."
 
 (defun geiser-chicken4--compile-or-load (force-load)
   (let ((target
-         (expand-file-name "chicken/geiser/emacs.so" geiser-scheme-dir))
+         (expand-file-name "chicken/geiser/chicken4.so" geiser-scheme-dir))
         (source
-         (expand-file-name "chicken/geiser/emacs.scm" geiser-scheme-dir))
+         (expand-file-name "chicken/geiser/chicken4.scm" geiser-scheme-dir))
         (force-load (or force-load (eq system-type 'windows-nt)))
         (suppression-prefix
          "(define geiser-stdout (current-output-port))(current-output-port 
(make-output-port (lambda a #f) (lambda a #f)))")

Reply via email to