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

(require syndicate/drivers/timer)

(module+ main
  (standard-actor-system (ds)
    (at ds
      (log-info "waiting...")
      (on (timeout 1000)
        (log-info "still waiting..."))
      (stop-on (timeout 2000)
        (log-info "done!")))))