`perform-actions!`
This commit is contained in:
parent
c77513e838
commit
05c57ec05d
|
@ -49,6 +49,7 @@
|
||||||
assert!
|
assert!
|
||||||
retract!
|
retract!
|
||||||
patch!
|
patch!
|
||||||
|
perform-actions!
|
||||||
flush!
|
flush!
|
||||||
|
|
||||||
syndicate-effects-available?
|
syndicate-effects-available?
|
||||||
|
@ -1222,6 +1223,13 @@
|
||||||
(ensure-in-script! 'patch!)
|
(ensure-in-script! 'patch!)
|
||||||
(update-stream! *adhoc-label* p))
|
(update-stream! *adhoc-label* p))
|
||||||
|
|
||||||
|
(define (perform-actions! acs)
|
||||||
|
(ensure-in-script! 'perform-actions!)
|
||||||
|
(for [(ac (core:clean-actions acs))]
|
||||||
|
(match ac
|
||||||
|
[(? patch? p) (update-stream! *adhoc-label* p)]
|
||||||
|
[_ (schedule-action! ac)])))
|
||||||
|
|
||||||
(define (flush!)
|
(define (flush!)
|
||||||
(ensure-in-script! 'flush!)
|
(ensure-in-script! 'flush!)
|
||||||
(define ack (gensym 'flush!))
|
(define ack (gensym 'flush!))
|
||||||
|
|
Loading…
Reference in New Issue