Skip apply-patch! make-work if patch is empty
This commit is contained in:
parent
69a8893da3
commit
ef4584a60f
|
@ -362,6 +362,7 @@
|
|||
(run-all-pending-scripts! ds))))
|
||||
|
||||
(define (apply-patch! ds ac delta [restriction-path #f])
|
||||
(when (not (bag-empty? delta))
|
||||
(define ds-assertions (dataspace-assertions ds))
|
||||
(define rt (dataspace-routing-table ds))
|
||||
(define new-cleanup-changes
|
||||
|
@ -373,7 +374,7 @@
|
|||
['present->present (void)]) ;; i.e. no visible change
|
||||
(define-values (updated-bag _summary) (bag-change cleanup-changes a (- count)))
|
||||
updated-bag))
|
||||
(set-actor-cleanup-changes! ac new-cleanup-changes))
|
||||
(set-actor-cleanup-changes! ac new-cleanup-changes)))
|
||||
|
||||
(define (run-scripts! ds)
|
||||
(run-all-pending-scripts! ds)
|
||||
|
|
Loading…
Reference in New Issue