misc-deps
/
racket-ansi
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Profiling infrastructure.

This commit is contained in:
Tony Garnock-Jones 2014-12-26 18:57:01 -05:00
parent 7fcd3587b5
commit c03bf183a0
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rmacs/main.rkt
View File

@ -15,6 +15,14 @@
(editor-mainloop e)) (editor-mainloop e))
(module+ main (module+ main
(local-require racket/trace) (require racket/trace)
(current-trace-notify (lambda (s) (log-info "TRACE: ~a" s))) (current-trace-notify (lambda (s) (log-info "TRACE: ~a" s)))
(void (main))) (void (main))
;; (require profile)
;; (require ansi)
;; (void (profile-thunk (lambda () (begin0 (main)
;; (tty-restore!)
;; (display (select-graphic-rendition style-normal))
;; (display (clear-screen))
;; (flush-output)))))
)