syndicate-lang
/
syndicate-rkt
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

entity-data

This commit is contained in:
Tony Garnock-Jones 2021-06-08 09:29:15 +02:00
parent e7153b9c6a
commit 5260370154
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
syndicate/actor.rkt
View File

@ -68,7 +68,7 @@
(require "field.rkt")
(require "support/counter.rkt")
(struct entity (id name assert retract message sync)
(struct entity (id name assert retract message sync data)
#:methods gen:custom-write
[(define (write-proc e port mode)
(fprintf port "#<entity:~a:~a>" (entity-id e) (entity-name e)))])
@ -78,7 +78,8 @@
#:assert [entity-assert #f]
#:retract [entity-retract #f]
#:message [entity-message #f]
#:sync [entity-sync #f]))
#:sync [entity-sync #f]
#:data [entity-data (void)]))
(struct entity-ref (relay target attenuation) #:transparent)
(define (parse-Ref! r) (if (entity-ref? r) r (error 'parse-Ref! "Expected entity-ref; got ~v" r)))