Guard against double-adhoc-assertion
This commit is contained in:
parent
9726376c82
commit
c06d5ba3ce
|
@ -495,13 +495,15 @@
|
||||||
(bag-change! (ensure-patch-action! ac) assertion +1)))
|
(bag-change! (ensure-patch-action! ac) assertion +1)))
|
||||||
|
|
||||||
(define (adhoc-retract! ac assertion)
|
(define (adhoc-retract! ac assertion)
|
||||||
(when (not (void? assertion))
|
(define adhoc-assertions (actor-adhoc-assertions ac))
|
||||||
(set-actor-adhoc-assertions! ac (set-remove (actor-adhoc-assertions ac) assertion))
|
(when (and (not (void? assertion)) (set-member? adhoc-assertions assertion))
|
||||||
|
(set-actor-adhoc-assertions! ac (set-remove adhoc-assertions assertion))
|
||||||
(retract! ac assertion)))
|
(retract! ac assertion)))
|
||||||
|
|
||||||
(define (adhoc-assert! ac assertion)
|
(define (adhoc-assert! ac assertion)
|
||||||
(when (not (void? assertion))
|
(define adhoc-assertions (actor-adhoc-assertions ac))
|
||||||
(set-actor-adhoc-assertions! ac (set-add (actor-adhoc-assertions ac) assertion))
|
(when (and (not (void? assertion)) (not (set-member? adhoc-assertions assertion)))
|
||||||
|
(set-actor-adhoc-assertions! ac (set-add adhoc-assertions assertion))
|
||||||
(assert! ac assertion)))
|
(assert! ac assertion)))
|
||||||
|
|
||||||
(define (dataspace-unsubscribe! ds h)
|
(define (dataspace-unsubscribe! ds h)
|
||||||
|
|
Loading…
Reference in New Issue