`schedule-actions!`
This commit is contained in:
parent
2f7313a489
commit
8202220fec
|
@ -59,6 +59,7 @@
|
||||||
;;
|
;;
|
||||||
|
|
||||||
schedule-action!
|
schedule-action!
|
||||||
|
schedule-actions!
|
||||||
actor-action
|
actor-action
|
||||||
(for-syntax (rename-out [name actor-name]))
|
(for-syntax (rename-out [name actor-name]))
|
||||||
|
|
||||||
|
@ -930,6 +931,9 @@
|
||||||
(begin (flush-pending-patch!)
|
(begin (flush-pending-patch!)
|
||||||
(current-pending-actions (list (current-pending-actions) ac)))))
|
(current-pending-actions (list (current-pending-actions) ac)))))
|
||||||
|
|
||||||
|
(define (schedule-actions! . acs)
|
||||||
|
(for [(ac (core:clean-actions acs))] (schedule-action! ac)))
|
||||||
|
|
||||||
(define (flush-pending-patch!)
|
(define (flush-pending-patch!)
|
||||||
(define p (current-pending-patch))
|
(define p (current-pending-patch))
|
||||||
(when (patch-non-empty? p)
|
(when (patch-non-empty? p)
|
||||||
|
|
Loading…
Reference in New Issue