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

Rackety

Browse Source
This commit is contained in:
Robby Findler 2011-09-24 07:59:19 -05:00
parent 75be15700e
commit cc42ac8b1f
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/drracket/private/module-language.rkt
View File

@ -51,7 +51,7 @@
get-language-info)) get-language-info))
;; add-module-language : -> void ;; add-module-language : -> void
;; adds the special module-only language to drscheme ;; adds the special module-only language to drracket
(define (add-module-language) (define (add-module-language)
(define module-language% (define module-language%
(module-mixin (module-mixin
@ -249,7 +249,7 @@
command-line-args command-line-args
auto-text auto-text
;; current versions of drscheme do not allow this combination ;; current versions of drracket do not allow this combination
;; in the first place (compilation is only allowed in 'none ;; in the first place (compilation is only allowed in 'none
;; and 'debug mode), but older versions might. ;; and 'debug mode), but older versions might.
(and (memq (drracket:language:simple-settings-annotations super) (and (memq (drracket:language:simple-settings-annotations super)
@ -486,7 +486,7 @@
;; but keep the highlighting of a previous error) ;; but keep the highlighting of a previous error)
(define (raise-hopeless-exception exn [prefix #f] [suffix #f]) (define (raise-hopeless-exception exn [prefix #f] [suffix #f])
(define rep (drracket:rep:current-rep)) (define rep (drracket:rep:current-rep))
;; Throw an error as usual if we don't have the drscheme rep, then we just ;; Throw an error as usual if we don't have the drracket rep, then we just
;; raise the exception as normal. (It can happen in some rare cases like ;; raise the exception as normal. (It can happen in some rare cases like
;; having a single empty scheme box in the definitions.) ;; having a single empty scheme box in the definitions.)
(unless rep (if exn (raise exn) (error "\nInteractions disabled"))) (unless rep (if exn (raise exn) (error "\nInteractions disabled")))
@ -495,7 +495,7 @@
;; these are needed, otherwise the warning can appear before the output ;; these are needed, otherwise the warning can appear before the output
(flush-output (current-output-port)) (flush-output (current-output-port))
(flush-output (current-error-port)) (flush-output (current-error-port))
;; do the rep-related work carefully -- using drscheme's eventspace, and ;; do the rep-related work carefully -- using drracket's eventspace, and
;; wait for it to finish before we continue. ;; wait for it to finish before we continue.
(let ([s (make-semaphore 0)] (let ([s (make-semaphore 0)]
[msg (string-append "\nInteractions disabled" [msg (string-append "\nInteractions disabled"