Skip to content

Commit 98d1713

Browse files
committed
drdr is timing out with a large timeout, let's see if this sheds some light on what's happening
1 parent 7c24ccd commit 98d1713

1 file changed

Lines changed: 10 additions & 0 deletions

File tree

drracket-test/tests/drracket/errortrace-startup.rkt

Lines changed: 10 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -17,6 +17,16 @@ the same ones that drracket is using.
1717
(void (putenv "PLTDRDEBUG" "yes")
1818
(putenv "PLTNOTOOLS" "yes"))
1919

20+
(void
21+
(thread
22+
(λ ()
23+
(define lr (make-log-receiver (current-logger) 'info 'compiler/cm))
24+
(let loop ()
25+
(define msg (sync lr))
26+
(displayln (vector-ref msg 1))
27+
(flush-output)
28+
(loop)))))
29+
2030
;; start up DrRacket
2131
(dynamic-require 'drracket #f)
2232

0 commit comments

Comments
 (0)