branch: elpa/geiser-racket
commit e135455b8a4014d82fae0b5ceca094586a657144
Author: Jose Antonio Ortega Ruiz <[email protected]>
Commit: Jose Antonio Ortega Ruiz <[email protected]>
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.
---
geiser/user.rkt | 6 +-----
1 file changed, 1 insertion(+), 5 deletions(-)
diff --git a/geiser/user.rkt b/geiser/user.rkt
index 9d5b169..e379946 100644
--- a/geiser/user.rkt
+++ b/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))
