2021-06-04 13:56:03 +00:00
|
|
|
;;; SPDX-License-Identifier: LGPL-3.0-or-later
|
2021-06-04 14:20:14 +00:00
|
|
|
;;; SPDX-FileCopyrightText: Copyright © 2021 Tony Garnock-Jones <tonyg@leastfixedpoint.com>
|
2021-06-01 15:19:24 +00:00
|
|
|
|
2018-04-29 11:22:12 +00:00
|
|
|
#lang racket/base
|
|
|
|
|
2021-06-10 09:42:07 +00:00
|
|
|
(provide (except-out (all-from-out "actor.rkt") current-turn)
|
2021-06-09 13:06:58 +00:00
|
|
|
(all-from-out "entity-ref.rkt")
|
2021-06-02 13:00:25 +00:00
|
|
|
(all-from-out "syntax.rkt")
|
2021-06-14 17:23:20 +00:00
|
|
|
(all-from-out "event-expander.rkt")
|
2021-06-03 20:38:45 +00:00
|
|
|
(all-from-out preserves)
|
2021-06-08 13:38:24 +00:00
|
|
|
(all-from-out preserves-schema)
|
2021-06-03 21:32:22 +00:00
|
|
|
|
|
|
|
assertion-struct
|
|
|
|
message-struct
|
|
|
|
|
2021-06-08 14:20:58 +00:00
|
|
|
:pattern)
|
2021-05-27 09:28:10 +00:00
|
|
|
|
2021-06-13 05:55:50 +00:00
|
|
|
(require "actor.rkt")
|
2021-06-09 13:06:58 +00:00
|
|
|
(require "entity-ref.rkt")
|
2021-06-02 13:00:25 +00:00
|
|
|
(require "syntax.rkt")
|
2021-06-14 17:23:20 +00:00
|
|
|
(require "event-expander.rkt")
|
2021-06-02 13:00:25 +00:00
|
|
|
(require preserves)
|
2021-06-08 13:38:24 +00:00
|
|
|
(require preserves-schema)
|
2021-06-03 21:32:22 +00:00
|
|
|
|
|
|
|
;; Thin veneers over `struct` for declaring intent.
|
|
|
|
(define-syntax-rule (assertion-struct item ...) (struct item ... #:prefab))
|
|
|
|
(define-syntax-rule (message-struct item ...) (struct item ... #:prefab))
|
|
|
|
|
2021-06-08 14:20:58 +00:00
|
|
|
(require (only-in "pattern.rkt" :pattern))
|
2018-04-29 11:22:12 +00:00
|
|
|
|
2021-06-03 20:36:29 +00:00
|
|
|
(module reader syntax/module-reader syndicate/lang)
|