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

(require syndicate/drivers/timer)

(module+ main
  (actor-system/dataspace (ds)
    (spawn-timer-driver ds)
    (spawn (at ds
             (log-info "waiting...")
             (on (timeout 1000)
               (log-info "still waiting..."))
             (stop-on (timeout 2000)
               (log-info "done!"))))))