Add typed interface for the futures visualizer.
This commit is contained in:
parent
fcfff27c31
commit
b6b5043ff9
8
collects/typed/future-visualizer.rkt
Normal file
8
collects/typed/future-visualizer.rkt
Normal 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)
|
Loading…
Reference in New Issue
Block a user