2023-02-11 01:20:37 -08:00
|
|
|
|
|
|
|
|
|
|
|
(event-register-handler (self))
|
|
|
|
|
|
|
|
(defun event-sender (n)
|
|
|
|
(if (= 0 n) ()
|
|
|
|
(progn
|
|
|
|
(event-sym 'apa)
|
|
|
|
(iota 271) ; Trigger GC eventually
|
|
|
|
(event-sender (- n 1)))))
|
|
|
|
|
|
|
|
(spawn event-sender 100)
|
|
|
|
|
|
|
|
|
|
|
|
|
2023-04-04 03:36:41 -07:00
|
|
|
(check (and (recv ((? x) (eq x 'apa)))
|
|
|
|
(recv ((? x) (eq x 'apa)))
|
|
|
|
(recv ((? x) (eq x 'apa)))
|
|
|
|
(recv ((? x) (eq x 'apa)))
|
|
|
|
(recv ((? x) (eq x 'apa)))
|
|
|
|
(recv ((? x) (eq x 'apa)))
|
|
|
|
(recv ((? x) (eq x 'apa)))
|
|
|
|
(recv ((? x) (eq x 'apa)))
|
|
|
|
(recv ((? x) (eq x 'apa)))
|
|
|
|
(recv ((? x) (eq x 'apa)))
|
|
|
|
(recv ((? x) (eq x 'apa)))))
|
2023-02-11 01:20:37 -08:00
|
|
|
|
|
|
|
|