From fc7fca0915e46f9f34acbb4afe36cfd419472249 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 12 Oct 2006 06:20:26 +0000
Subject: [PATCH] bug fixed: restoring saved runstacks and break-suspend
 counter

svn: r4556
---
 collects/readline/rep.ss | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/collects/readline/rep.ss b/collects/readline/rep.ss
index 2bb64f2026..fc9de67436 100644
--- a/collects/readline/rep.ss
+++ b/collects/readline/rep.ss
@@ -10,4 +10,10 @@
     (error 'readline-input
            "invoke this library when the current-input-port is stdin"))
 
-  (current-prompt-read read-cmdline-syntax))
+  (current-prompt-read 
+   (let ([orig-read (current-prompt-read)]
+         [orig-input (current-input-port)])
+     (lambda ()
+       (if (eq? (current-input-port) orig-input)
+           (read-cmdline-syntax)
+	   (orig-read))))))