Profiling infrastructure.

2014-12-26 18:57:01 -05:00 · 2014-12-26 18:57:01 -05:00 · c03bf183a0
parent 7fcd3587b5
commit c03bf183a0
1 changed files with 10 additions and 2 deletions
--- a/rmacs/main.rkt
+++ b/rmacs/main.rkt
@ -15,6 +15,14 @@
  (editor-mainloop e))

 (module+ main
-  (local-require racket/trace)
+  (require racket/trace)
  (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)))))
+  )