Error on sending transient references
This commit is contained in:
parent
776105c776
commit
701f5722f0
|
@ -214,6 +214,8 @@
|
||||||
local-ref
|
local-ref
|
||||||
transient?
|
transient?
|
||||||
(lambda ()
|
(lambda ()
|
||||||
|
(when transient?
|
||||||
|
(error 'rewrite-ref-out* "Cannot send transient reference"))
|
||||||
(define oid (tunnel-relay-next-local-oid tr))
|
(define oid (tunnel-relay-next-local-oid tr))
|
||||||
(set-tunnel-relay-next-local-oid! tr (+ oid 1))
|
(set-tunnel-relay-next-local-oid! tr (+ oid 1))
|
||||||
(wire-symbol oid local-ref 0))))
|
(wire-symbol oid local-ref 0))))
|
||||||
|
|
Loading…
Reference in New Issue