diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-11-13 02:07:19 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-11-13 02:07:19 +0100 |
| commit | 1853b281918ea8c6e143ed1cfe1950189956d076 (patch) | |
| tree | 468b3cecd6a6af28944cee9ce903a872b1fc6247 /scheme/racket | |
| parent | 6e9d4a346b4a947259b564063c0c3186e51670e0 (diff) | |
| download | geiser-chez-1853b281918ea8c6e143ed1cfe1950189956d076.tar.gz geiser-chez-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/racket')
| -rw-r--r-- | scheme/racket/geiser/user.rkt | 6 |
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)) |