Accommodate new preserves approach to (un)parsing embeddeds
This commit is contained in:
parent
3751c07de6
commit
eec5c59f84
|
@ -7,7 +7,7 @@
|
||||||
|
|
||||||
(struct-out entity-ref)
|
(struct-out entity-ref)
|
||||||
attenuate-entity-ref
|
attenuate-entity-ref
|
||||||
parse-Ref
|
parse-Ref!
|
||||||
Ref->preserves
|
Ref->preserves
|
||||||
|
|
||||||
actor-system
|
actor-system
|
||||||
|
@ -80,7 +80,7 @@
|
||||||
#:sync [entity-sync #f]))
|
#:sync [entity-sync #f]))
|
||||||
|
|
||||||
(struct entity-ref (relay target attenuation) #:transparent)
|
(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)
|
(define (Ref->preserves r) r)
|
||||||
|
|
||||||
(struct outbound-assertion (handle peer [established? #:mutable]))
|
(struct outbound-assertion (handle peer [established? #:mutable]))
|
||||||
|
|
Loading…
Reference in New Issue