summaryrefslogtreecommitdiff
path: root/elisp/geiser-racket.el
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-11-11 03:31:15 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-11-11 03:31:15 +0100
commitd773c05503659047f35878bd745568ce04078148 (patch)
tree591e404cda40dea7142189b7c86212502cd87cae /elisp/geiser-racket.el
parentdfc900c0e2f59edfb06bbdabfc4bcde172d6ced9 (diff)
downloadgeiser-guile-d773c05503659047f35878bd745568ce04078148.tar.gz
geiser-guile-d773c05503659047f35878bd745568ce04078148.tar.bz2
Elisp support for inferior schemes
Diffstat (limited to 'elisp/geiser-racket.el')
-rw-r--r--elisp/geiser-racket.el3
1 files changed, 3 insertions, 0 deletions
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)