2016-04-01 23:53:46 +00:00
|
|
|
#lang syndicate
|
2015-04-04 01:42:32 +00:00
|
|
|
;; Analogous to nc-incremental-swap-int-and-claim.rkt in the Redex model.
|
|
|
|
;; Demonstrates (hopefully) correct processing of feedback at interest switches.
|
|
|
|
|
|
|
|
(require rackunit)
|
|
|
|
|
2017-02-15 23:18:19 +00:00
|
|
|
(actor (lambda (e u)
|
2015-04-04 01:42:32 +00:00
|
|
|
(if (< (length u) 3)
|
|
|
|
(transition
|
|
|
|
(append u (list e))
|
|
|
|
(if (null? u)
|
|
|
|
(patch-seq (assert 'a) (unsub 'a))
|
|
|
|
'()))
|
|
|
|
(begin0 #f (check-equal? u (list #f #f #f)))))
|
|
|
|
'()
|
|
|
|
(sub 'a))
|
|
|
|
|
2017-02-15 23:18:19 +00:00
|
|
|
(actor (lambda (e u)
|
2015-04-04 01:42:32 +00:00
|
|
|
(if (< (length u) 3)
|
|
|
|
(transition
|
|
|
|
(append u (list e))
|
|
|
|
(if (null? u)
|
|
|
|
(patch-seq (retract 'b) (sub 'b))
|
|
|
|
'()))
|
|
|
|
(begin0 #f (check-equal? u (list #f #f #f)))))
|
|
|
|
'()
|
|
|
|
(assert 'b))
|