summaryrefslogtreecommitdiff
path: root/elisp/geiser-guile.el
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-11-13 02:07:19 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-11-13 02:07:19 +0100
commit1853b281918ea8c6e143ed1cfe1950189956d076 (patch)
tree468b3cecd6a6af28944cee9ce903a872b1fc6247 /elisp/geiser-guile.el
parent6e9d4a346b4a947259b564063c0c3186e51670e0 (diff)
downloadgeiser-guile-1853b281918ea8c6e143ed1cfe1950189956d076.tar.gz
geiser-guile-1853b281918ea8c6e143ed1cfe1950189956d076.tar.bz2
Superior schemes
Inferior schemes weren't really a good idea, were they? With remote connections one can launch an external scheme to debug Geiser anyway. And everything is (ahem, will be) simpler when we add new implementations.
Diffstat (limited to 'elisp/geiser-guile.el')
-rw-r--r--elisp/geiser-guile.el17
1 files changed, 3 insertions, 14 deletions
diff --git a/elisp/geiser-guile.el b/elisp/geiser-guile.el
index 687bf34..a53395d 100644
--- a/elisp/geiser-guile.el
+++ b/elisp/geiser-guile.el
@@ -262,18 +262,9 @@ it spawn a server thread."
`((,geiser-guile--path-rx 1
compilation-error-face)))
(when remote
- (geiser-repl--send-silent (geiser-guile--load-path-string))
- (geiser-repl--send-silent ",use (geiser emacs)"))
- (geiser-guile-update-warning-level)
- )
-
-(defun geiser-guile--init-server-command ()
- (comint-kill-region (point-min) (point-max))
- (setq comint-prompt-regexp "inferior-guile> ")
- (comint-send-string nil ",option prompt \"inferior-guile> \"\n")
- (comint-send-string nil ",use (geiser emacs)\n")
- (geiser-inf--wait-for-prompt 10000)
- ",geiser-start-server")
+ (geiser-repl--send-silent (geiser-guile--load-path-string)))
+ (geiser-repl--send-silent ",use (geiser emacs)")
+ (geiser-guile-update-warning-level))
;;; Implementation definition:
@@ -283,8 +274,6 @@ it spawn a server thread."
(arglist geiser-guile--parameters)
(repl-startup geiser-guile--startup)
(prompt-regexp geiser-guile--prompt-regexp)
- (inferior-prompt-regexp geiser-guile--prompt-regexp)
- (init-server-command geiser-guile--init-server-command)
(debugger-prompt-regexp geiser-guile--debugger-prompt-regexp)
(enter-debugger geiser-guile--enter-debugger)
(marshall-procedure geiser-guile--geiser-procedure)