bug fixed: restoring saved runstacks and break-suspend counter

svn: r4556
2006-10-12 06:20:26 +00:00 · 2006-10-12 06:20:26 +00:00 · fc7fca0915
commit fc7fca0915
parent a6dacbcd0b
1 changed files with 7 additions and 1 deletions
--- 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))))))