Allow deferred production of initial-ref
This commit is contained in:
parent
600a52c287
commit
2276d1a81e
|
@ -55,6 +55,7 @@
|
||||||
(accept-bytes tr bs)
|
(accept-bytes tr bs)
|
||||||
(loop))))))
|
(loop))))))
|
||||||
#:initial-ref
|
#:initial-ref
|
||||||
|
(action ()
|
||||||
(ref (during* #:name (cons 'gatekeeper name-base)
|
(ref (during* #:name (cons 'gatekeeper name-base)
|
||||||
(action (assertion)
|
(action (assertion)
|
||||||
(match (parse-Resolve assertion)
|
(match (parse-Resolve assertion)
|
||||||
|
@ -67,7 +68,7 @@
|
||||||
(append-map values (reverse (SturdyRef-caveatChain sturdyref))))
|
(append-map values (reverse (SturdyRef-caveatChain sturdyref))))
|
||||||
(define attenuated-target
|
(define attenuated-target
|
||||||
(apply attenuate-entity-ref target attenuation))
|
(apply attenuate-entity-ref target attenuation))
|
||||||
(at observer (assert (embedded attenuated-target)))))])))))))
|
(at observer (assert (embedded attenuated-target)))))]))))))))
|
||||||
|
|
||||||
(spawn
|
(spawn
|
||||||
#:name 'tcp-server
|
#:name 'tcp-server
|
||||||
|
|
|
@ -283,7 +283,12 @@
|
||||||
(define tr (make-tunnel-relay this-turn name packet-writer))
|
(define tr (make-tunnel-relay this-turn name packet-writer))
|
||||||
(setup-inputs this-turn tr)
|
(setup-inputs this-turn tr)
|
||||||
(when initial-ref
|
(when initial-ref
|
||||||
(rewrite-ref-out tr initial-ref #f (lambda (_ws) (void))))
|
(rewrite-ref-out tr
|
||||||
|
(if (procedure? initial-ref)
|
||||||
|
(initial-ref this-turn)
|
||||||
|
initial-ref)
|
||||||
|
#f
|
||||||
|
(lambda (_ws) (void))))
|
||||||
(when then
|
(when then
|
||||||
(turn-assert! this-turn
|
(turn-assert! this-turn
|
||||||
then
|
then
|
||||||
|
|
Loading…
Reference in New Issue