suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

bug fixed: restoring saved runstacks and break-suspend counter

Browse Source 
svn: r4556
This commit is contained in:
Matthew Flatt 2006-10-12 06:20:26 +00:00
parent a6dacbcd0b
commit fc7fca0915
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/readline/rep.ss
View File

@ -10,4 +10,10 @@
(error 'readline-input (error 'readline-input
"invoke this library when the current-input-port is stdin")) "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))))))