From 1853b281918ea8c6e143ed1cfe1950189956d076 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Sat, 13 Nov 2010 02:07:19 +0100 Subject: 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. --- scheme/racket/geiser/user.rkt | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) (limited to 'scheme') 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)) -- cgit v1.2.3