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

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

@ -961,29 +961,32 @@ TODO
(define/augment (on-submit)
(inner (void) on-submit)
;; the -2 drops the last newline from history (why -2 and not -1?!)
(save-interaction-in-history prompt-position (- (last-position) 2))
(freeze-colorer)
(let ([needs-execution (send context needs-execution)])
(when (if (preferences:get 'drscheme:execute-warning-once)
(and (not already-warned?)
needs-execution)
needs-execution)
(set! already-warned? #t)
(insert-warning needs-execution)))
(when (and (get-user-thread)
(thread-running? (get-user-thread)))
;; the -2 drops the last newline from history (why -2 and not -1?!)
(save-interaction-in-history prompt-position (- (last-position) 2))
(freeze-colorer)
;; lets us know we are done with this one interaction
;; (since there may be multiple expressions at the prompt)
(send-eof-to-in-port)
(let ([needs-execution (send context needs-execution)])
(when (if (preferences:get 'drscheme:execute-warning-once)
(and (not already-warned?)
needs-execution)
needs-execution)
(set! already-warned? #t)
(insert-warning needs-execution)))
(set! prompt-position #f)
(evaluate-from-port
(get-in-port)
#f
(λ ()
;; clear out the eof object if it wasn't consumed
(clear-input-port))))
;; lets us know we are done with this one interaction
;; (since there may be multiple expressions at the prompt)
(send-eof-to-in-port)
(set! prompt-position #f)
(evaluate-from-port
(get-in-port)
#f
(λ ()
;; clear out the eof object if it wasn't consumed
(clear-input-port)))))
;; prompt-position : (union #f integer)
;; the position just after the last prompt