[nongnu] elpa/geiser-racket e135455 059/191: Superior schemes

[Philip Kaludercic]

branch: elpa/geiser-racket
commit e135455b8a4014d82fae0b5ceca094586a657144
Author: Jose Antonio Ortega Ruiz <jao@gnu.org>
Commit: Jose Antonio Ortega Ruiz <jao@gnu.org>

    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))