diff --git a/collects/typed/future-visualizer.rkt b/collects/typed/future-visualizer.rkt new file mode 100644 index 0000000000..f119115801 --- /dev/null +++ b/collects/typed/future-visualizer.rkt @@ -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)