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

fixed PR 8359

Browse Source 
svn: r4749
This commit is contained in:
Robby Findler 2006-11-02 04:30:56 +00:00
parent 9a5eced27b
commit c577c8080c
1 changed files with 25 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/drscheme/private/rep.ss
View File

@ -961,6 +961,9 @@ TODO
(define/augment (on-submit) (define/augment (on-submit)
(inner (void) on-submit) (inner (void) on-submit)
(when (and (get-user-thread)
(thread-running? (get-user-thread)))
;; the -2 drops the last newline from history (why -2 and not -1?!) ;; the -2 drops the last newline from history (why -2 and not -1?!)
(save-interaction-in-history prompt-position (- (last-position) 2)) (save-interaction-in-history prompt-position (- (last-position) 2))
(freeze-colorer) (freeze-colorer)
@ -983,7 +986,7 @@ TODO
#f #f
(λ () (λ ()
;; clear out the eof object if it wasn't consumed ;; clear out the eof object if it wasn't consumed
(clear-input-port)))) (clear-input-port)))))
;; prompt-position : (union #f integer) ;; prompt-position : (union #f integer)
;; the position just after the last prompt ;; the position just after the last prompt