Put assertion-struct and message-struct back.
This commit is contained in:
parent
2a9cdfc5cc
commit
f1c3859a71
|
@ -1,8 +1,8 @@
|
||||||
#lang syndicate
|
#lang syndicate
|
||||||
;; Simple mutable box and count-to-infinity box client.
|
;; Simple mutable box and count-to-infinity box client.
|
||||||
|
|
||||||
(struct set-box (new-value) #:prefab)
|
(message-struct set-box (new-value))
|
||||||
(struct box-state (value) #:prefab)
|
(assertion-struct box-state (value))
|
||||||
|
|
||||||
(module+ main
|
(module+ main
|
||||||
(actor-system/dataspace (ds)
|
(actor-system/dataspace (ds)
|
||||||
|
|
|
@ -3,12 +3,21 @@
|
||||||
(provide (all-from-out "actor.rkt")
|
(provide (all-from-out "actor.rkt")
|
||||||
(all-from-out "syntax.rkt")
|
(all-from-out "syntax.rkt")
|
||||||
(all-from-out preserves)
|
(all-from-out preserves)
|
||||||
|
|
||||||
|
assertion-struct
|
||||||
|
message-struct
|
||||||
|
|
||||||
:pattern
|
:pattern
|
||||||
:template)
|
:template)
|
||||||
|
|
||||||
(require (except-in "actor.rkt" actor-system))
|
(require (except-in "actor.rkt" actor-system))
|
||||||
(require "syntax.rkt")
|
(require "syntax.rkt")
|
||||||
(require preserves)
|
(require preserves)
|
||||||
|
|
||||||
|
;; 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))
|
||||||
|
|
||||||
(require (only-in "pattern.rkt" :pattern :template))
|
(require (only-in "pattern.rkt" :pattern :template))
|
||||||
|
|
||||||
(module reader syntax/module-reader syndicate/lang)
|
(module reader syntax/module-reader syndicate/lang)
|
||||||
|
|
Loading…
Reference in New Issue