2021-06-04 13:56:03 +00:00
|
|
|
;;; SPDX-License-Identifier: LGPL-3.0-or-later
|
|
|
|
;;; SPDX-FileCopyrightText: Copyright © 2010-2021 Tony Garnock-Jones <tonyg@leastfixedpoint.com>
|
2021-06-01 15:19:24 +00:00
|
|
|
|
2019-01-28 01:14:01 +00:00
|
|
|
#lang racket/base
|
|
|
|
;; Reflective protocols
|
|
|
|
|
|
|
|
(provide (struct-out terminated))
|
|
|
|
|
|
|
|
;; (terminated Any (Option Any))
|
|
|
|
;; The `actor-name` is the name of the terminated actor.
|
|
|
|
;; The `reason` is either `#f` or a termination reason, usually an `exn?`.
|
|
|
|
(struct terminated (actor-name reason) #:transparent)
|