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

hack: use a special value with exit to avoid popup message (no need for it now)

Browse Source 
svn: r10317
This commit is contained in:
Eli Barzilay 2008-06-17 17:25:30 +00:00
parent b6827d2d0b
commit 2c94de20aa
2 changed files with 14 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/drscheme/private/module-language.ss
View File

@ -220,7 +220,8 @@
(queue-callback
(λ ()
(fprintf (current-error-port) "\n(Further interactions disabled.)\n")
(kill-thread t)))
;; special value that will exit the repl but avoid the popup
(exit "NO NEED TO POPUP A TERMINATION EXPLANATION")))
(apply raise-syntax-error '|Module Language|
(if (null? error-args)
(list (string-append

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

@ -903,12 +903,17 @@ TODO
(field (already-warned? #f))
;; special value that is used with `exit' when we don't want the popup
(define no-terminate-explanation-string
"NO NEED TO POPUP A TERMINATION EXPLANATION")
(define/private (cleanup)
(set! in-evaluation? #f)
(update-running #f)
(unless (and (get-user-thread) (thread-running? (get-user-thread)))
(lock #t)
(unless shutting-down?
(unless (or shutting-down?
(equal? user-exit-code no-terminate-explanation-string))
(no-user-evaluation-message
(let ([canvas (get-active-canvas)])
(and canvas
@ -1227,8 +1232,8 @@ TODO
(queue-callback
(λ ()
(set! user-exit-code
(if (and (integer? x)
(<= 0 x 255))
(if (or (and (integer? x) (<= 0 x 255))
(equal? x no-terminate-explanation-string))
x
0))
(semaphore-post s))))