9 lines
256 B
Racket
9 lines
256 B
Racket
#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)
|