Add more safer shapes packing mechanism.

This commit is contained in:
Andrey Antukh 2017-01-31 00:07:53 +01:00
parent 12b9868f45
commit aba35dee61
No known key found for this signature in database
GPG key ID: 4DFEBCB8316A8B95
3 changed files with 26 additions and 6 deletions

View file

@ -42,7 +42,7 @@
[]
(letfn [(on-move [shape delta]
(st/emit! (uds/apply-temporal-displacement shape delta)))
(on-stop [{:keys [id] :as shape}]
(on-stop [shape]
(st/emit! (uds/apply-displacement shape)))
(on-start [shape]
(let [stoper (->> streams/events