branch: elpa/geiser-racket
commit bde687fa76572044acdba11e5f2feaf48e7a95d9
Author: Jose Antonio Ortega Ruiz <j...@gnu.org>
Commit: Jose Antonio Ortega Ruiz <j...@gnu.org>
Scheme version checks
And, if you happen to be launching it all the time, a way of skipping
them via a customizable variable.
Should address issue #15.
---
elisp/geiser-racket.el | 9 ++++++++-
1 file changed, 8 insertions(+), 1 deletion(-)
diff --git a/elisp/geiser-racket.el b/elisp/geiser-racket.el
index 9b98945..59886e3 100644
--- a/elisp/geiser-racket.el
+++ b/elisp/geiser-racket.el
@@ -358,7 +358,12 @@ using start-geiser, a procedure in the geiser/server
module."
(with-handlers: 1))
-;;; Startup
+;;; REPL Startup
+
+(defvar geiser-racket-minimum-version "5.3")
+
+(defun geiser-racket--version (binary)
+ (shell-command-to-string (format "%s -e '(display (version))'" binary)))
(defun geiser-racket--startup (remote)
(set (make-local-variable 'compilation-error-regexp-alist)
@@ -412,6 +417,8 @@ Use a prefix to be asked for a submodule name."
(define-geiser-implementation racket
(unsupported-procedures '(callers callees generic-methods))
(binary geiser-racket--binary)
+ (minimum-version geiser-racket-minimum-version)
+ (version-command geiser-racket--version)
(arglist geiser-racket--parameters)
(repl-startup geiser-racket--startup)
(prompt-regexp geiser-racket--prompt-regexp)
