branch: elpa/geiser-gambit
commit 8f6b06009fcc3fcbeca6f7c67ad2ef6c93785c76
Author: lucaregini <[email protected]>
Commit: lucaregini <[email protected]>
Gambit has added the commit guid to the version number. The business logic
that deals with gambit version numbers has been updated accordingly
---
geiser-gambit.el | 7 +++----
1 file changed, 3 insertions(+), 4 deletions(-)
diff --git a/geiser-gambit.el b/geiser-gambit.el
index 9775d7d..24c0f02 100644
--- a/geiser-gambit.el
+++ b/geiser-gambit.el
@@ -301,11 +301,10 @@ If `t', Geiser will use `next-error' to jump to the
error's location."
;; if your version of gambit support modules we directly load geiser module
;; else we go load the file in geiser
(let* ((v (geiser-gambit--version (geiser-gambit--binary)))
- (gambit-version (substring v 1 (string-width v))))
+ (gambit-version (geiser--cut-version v)))
(if (version< gambit-version "4.9.4")
- `( "-:d-" ,(expand-file-name "geiser/gambit.scm"
geiser-gambit-scheme-dir) "-" )
- `("-:d-" "gambit/geiser" "-"))))
-
+ `( "-:d-" ,(expand-file-name "geiser/gambit.scm"
geiser-gambit-scheme-dir) "-" )
+ `("-:d-" "gambit/geiser.scm" "-"))))
(defun connect-to-gambit ()
"Start a Gambit REPL connected to a remote process."
