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