`perform-actions!`
This commit is contained in:
parent
c77513e838
commit
05c57ec05d
|
@ -49,6 +49,7 @@
|
|||
assert!
|
||||
retract!
|
||||
patch!
|
||||
perform-actions!
|
||||
flush!
|
||||
|
||||
syndicate-effects-available?
|
||||
|
@ -1222,6 +1223,13 @@
|
|||
(ensure-in-script! 'patch!)
|
||||
(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!)
|
||||
(ensure-in-script! 'flush!)
|
||||
(define ack (gensym 'flush!))
|
||||
|
|
Loading…
Reference in New Issue