#lang syndicate
;;; SPDX-License-Identifier: LGPL-3.0-or-later
;;; SPDX-FileCopyrightText: Copyright © 2021 Tony Garnock-Jones <tonyg@leastfixedpoint.com>

(module+ test
  (actor-system/dataspace (ds)
    (spawn
      (define (loop n)
        (log-info "loop ~v" n)
        (when (positive? n)
          (react (on-start (send! ds (- n 1)))
                 (at ds (stop-on (message $n) (loop n))))))
      (loop 5))))