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

undid last commit ... oops

Browse Source 
svn: r12090
This commit is contained in:
Robby Findler 2008-10-21 23:04:48 +00:00
parent 567ef6d95c
commit e102ee9574
1 changed files with 3 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
collects/drscheme/private/language.ss
View File

@ -1086,31 +1086,12 @@
(λ () (λ ()
(with-handlers ([(λ (x) #t) (with-handlers ([(λ (x) #t)
(λ (x) (λ (x)
(parameterize ([current-error-port original-output-port]) (display (exn-message x))
((error-display-handler) (newline))])
(if (exn? x)
(exn-message x)
(format "~s" x))
x))
(printf "~a\n" (if (exn? x)
(exn-message x)
(format "~s" x))))])
(when module-spec (when module-spec
(if use-copy? (if use-copy?
(namespace-require/copy module-spec) (namespace-require/copy module-spec)
(let ([t (current-thread)]) (namespace-require/constant module-spec)))
(thread
(λ ()
(let loop ([i 5])
(unless (zero? i)
(printf "sleeping ... ~a\n" i)
(sleep 1)
(loop (- i 1))))
(printf "breaking...\n")
(break-thread t)
(printf "broke\n")))
(break-enabled #t)
(namespace-require/constant module-spec))))
(when transformer-module-spec (when transformer-module-spec
(namespace-require `(for-syntax ,transformer-module-spec))))))) (namespace-require `(for-syntax ,transformer-module-spec)))))))