branch: elpa/geiser-racket
commit 32ae6023149a99f5b64c0cae0e8b2cc2c8fbfa2d
Author: Jose Antonio Ortega Ruiz <[email protected]>
Commit: Jose Antonio Ortega Ruiz <[email protected]>
Elisp support for inferior schemes
---
elisp/geiser-racket.el | 3 +++
1 file changed, 3 insertions(+)
diff --git a/elisp/geiser-racket.el b/elisp/geiser-racket.el
index c680907..4152a22 100644
--- a/elisp/geiser-racket.el
+++ b/elisp/geiser-racket.el
@@ -84,6 +84,8 @@ This function uses `geiser-racket-init-file' if it exists."
(defconst geiser-racket--prompt-regexp "^=?\\(mzscheme\\|racket\\)@[^ ]*?> ")
+(defconst geiser-racket--init-server-cmd ",start-geiser")
+
;;; Evaluation support:
@@ -241,6 +243,7 @@ using start-geiser, a procedure in the geiser/server
module."
(unsupported-procedures '(callers callees generic-methods))
(binary geiser-racket--binary)
(arglist geiser-racket--parameters)
+ (init-server-cmd geiser-racket--init-server-cmd)
(startup)
(prompt-regexp geiser-racket--prompt-regexp)
(marshall-procedure geiser-racket--geiser-procedure)
