respect a non-default existing prompt-read

svn: r5826
2007-03-25 20:24:04 +00:00 · 2007-03-25 20:24:04 +00:00 · 87f93ea412
commit 87f93ea412
parent 177610e70d
1 changed files with 3 additions and 1 deletions
--- a/collects/swindle/swindle.ss
+++ b/collects/swindle/swindle.ss
@ -11,7 +11,9 @@
  (provide (all-from (lib "turbo.ss" "swindle"))
           (all-from (lib "clos.ss" "swindle"))
           (all-from (lib "extra.ss" "swindle")))
-  (current-prompt-read (lambda () (display "=> ") (read)))
+  (current-prompt-read
+   (let ([old-prompt-read (current-prompt-read)])
+     (lambda () (display "=") (flush-output) (old-prompt-read))))
  (install-swindle-printer)
  ;; This comes out ugly in DrScheme.
  ;; (printf