[61_14] Gambit: only available when version eq? v4.9.5

XmacsLabs · Jul 25, 2024 · 2fbd26f · 2fbd26f
1 parent 943ad93
commit 2fbd26f
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 2 deletions.
diff --git a/TeXmacs/plugins/gambit/progs/binary/gambit.scm b/TeXmacs/plugins/gambit/progs/binary/gambit.scm
@@ -29,4 +29,11 @@
   (not (url-none? (find-binary-gambit))))
 
 (tm-define (version-binary-gambit)
-  (version-binary (find-binary-gambit)))
+  (when (has-binary-gambit?)
+    (let*
+     ((msg (check-stdout (string-append (url->system (find-binary-gambit)) " -v")))
+      (msg-l (filter (lambda (x) (not (string-null? x)))
+                 (string-split msg #\space))))
+     (if (== (length msg-l) 0)
+         ""
+         (car msg-l)))))
diff --git a/TeXmacs/plugins/gambit/progs/init-gambit.scm b/TeXmacs/plugins/gambit/progs/init-gambit.scm
@@ -26,7 +26,8 @@
     (string-append (url->system (get-texmacs-path)) "/plugins/gambit/gambit/tm-gambit.scm")))
 
 (plugin-configure gambit
-  (:require (has-binary-gambit?))
+  (:require (and (has-binary-gambit?)
+                 (== (version-binary-gambit) "v4.9.5")))
   (:launch ,(gambit-launcher))
   (:serializer ,gambit-serialize)
   (:session "Gambit Scheme"))