We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 7c24ccd commit 98d1713Copy full SHA for 98d1713
1 file changed
drracket-test/tests/drracket/errortrace-startup.rkt
@@ -17,6 +17,16 @@ the same ones that drracket is using.
17
(void (putenv "PLTDRDEBUG" "yes")
18
(putenv "PLTNOTOOLS" "yes"))
19
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
+
30
;; start up DrRacket
31
(dynamic-require 'drracket #f)
32
0 commit comments