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

Accommodate new preserves approach to (un)parsing embeddeds

This commit is contained in:
Tony Garnock-Jones 2021-06-08 09:27:51 +02:00
parent 3751c07de6
commit eec5c59f84
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
syndicate/actor.rkt
View File

@ -7,7 +7,7 @@
(struct-out entity-ref)
attenuate-entity-ref
parse-Ref
parse-Ref!
Ref->preserves
actor-system
@ -80,7 +80,7 @@
#:sync [entity-sync #f]))
(struct entity-ref (relay target attenuation) #:transparent)
(define (parse-Ref r) (if (entity-ref? r) r eof))
(define (parse-Ref! r) (if (entity-ref? r) r (error 'parse-Ref! "Expected entity-ref; got ~v" r)))
(define (Ref->preserves r) r)
(struct outbound-assertion (handle peer [established? #:mutable]))