syndicate-lang
/
syndicate-rkt
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
syndicate-rkt/syndicate/test/core/self-loop.rkt

14 lines
424 B
Racket
Raw Permalink Normal View History

`when` -> `on`; StreamConnection API; better `this-target`; tcp-listen errors - spec-generic StreamConnection translators, for simple TCP API - `when` -> `on`, better use for event-expanders - Removal of special processing of `at`, making `this-target` properly lexically scopeable - TcpListenError and handling of tcp-listen errors - SYNDICATE_COLUMNS for pretty-printing of dataspace traces - Repair driver-support.rkt thread shutdown turn-taking - Refinements to stream protocols and implementation - Improvements to syntax location preservation in syntax.rkt
2021-06-17 11:38:30 +00:00
#lang syndicate
;;; SPDX-License-Identifier: LGPL-3.0-or-later
Happy new year
2024-03-10 11:43:06 +00:00
;;; SPDX-FileCopyrightText: Copyright © 2021-2024 Tony Garnock-Jones <tonyg@leastfixedpoint.com>
`when` -> `on`; StreamConnection API; better `this-target`; tcp-listen errors - spec-generic StreamConnection translators, for simple TCP API - `when` -> `on`, better use for event-expanders - Removal of special processing of `at`, making `this-target` properly lexically scopeable - TcpListenError and handling of tcp-listen errors - SYNDICATE_COLUMNS for pretty-printing of dataspace traces - Repair driver-support.rkt thread shutdown turn-taking - Refinements to stream protocols and implementation - Improvements to syntax location preservation in syntax.rkt
2021-06-17 11:38:30 +00:00
(module+ test
Services and service activation
2021-06-17 12:57:06 +00:00
(standard-actor-system (ds)
`when` -> `on`; StreamConnection API; better `this-target`; tcp-listen errors - spec-generic StreamConnection translators, for simple TCP API - `when` -> `on`, better use for event-expanders - Removal of special processing of `at`, making `this-target` properly lexically scopeable - TcpListenError and handling of tcp-listen errors - SYNDICATE_COLUMNS for pretty-printing of dataspace traces - Repair driver-support.rkt thread shutdown turn-taking - Refinements to stream protocols and implementation - Improvements to syntax location preservation in syntax.rkt
2021-06-17 11:38:30 +00:00
(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))))