[nongnu] elpa/geiser-gambit 8f6b060 28/34: Gambit has added the commit guid to the version number. The business logic that deals with gambit version numbers has been updated accordingly

[Philip Kaludercic]

branch: elpa/geiser-gambit
commit 8f6b06009fcc3fcbeca6f7c67ad2ef6c93785c76
Author: lucaregini <lucaregini@yahoo.it>
Commit: lucaregini <lucaregini@yahoo.it>

    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."