Add typed interface for the futures visualizer.

This commit is contained in:
Sam Tobin-Hochstadt 2012-10-05 16:10:58 -04:00
parent fcfff27c31
commit b6b5043ff9

View File

@ -0,0 +1,8 @@
#lang typed/racket/base
(require/typed future-visualizer [visualize-futures-thunk (All (A) ((-> A) -> A))])
(define-syntax-rule (visualize-futures e ...)
(visualize-futures-thunk (lambda () e ...)))
(provide visualize-futures-thunk visualize-futures)