2021-06-10 11:30:30 +00:00
|
|
|
#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
|
2021-06-17 12:57:06 +00:00
|
|
|
(standard-actor-system (ds)
|
|
|
|
|
(at ds
|
|
|
|
|
(log-info "waiting...")
|
|
|
|
|
(on (timeout 1000)
|
|
|
|
|
(log-info "still waiting..."))
|
|
|
|
|
(stop-on (timeout 2000)
|
|
|
|
|
(log-info "done!")))))
|
