summaryrefslogtreecommitdiff
path: root/scheme
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 /scheme
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 'scheme')
-rw-r--r--scheme/racket/geiser/user.rkt6
1 files changed, 1 insertions, 5 deletions
diff --git a/scheme/racket/geiser/user.rkt b/scheme/racket/geiser/user.rkt
index 9d5b169..e379946 100644
--- a/scheme/racket/geiser/user.rkt
+++ b/scheme/racket/geiser/user.rkt
@@ -66,9 +66,6 @@
[_ form])))
(define geiser-prompt
- (lambda () (printf "> ")))
-
-(define geiser-server-prompt
(lambda ()
(printf "racket@~a> " (namespace->module-name (current-namespace)))))
@@ -86,8 +83,7 @@
(current-output-port out)
(current-error-port out)
(current-load/use-compiled geiser-loader)
- (current-prompt-read (geiser-prompt-read
- geiser-server-prompt))]
+ (current-prompt-read (geiser-prompt-read geiser-prompt))]
(read-eval-print-loop)))
(define server-channel (make-channel))