Error on sending transient references

2021-07-08 20:55:14 +02:00 · 2021-07-08 20:55:14 +02:00 · 701f5722f0
parent 776105c776
commit 701f5722f0
1 changed files with 2 additions and 0 deletions
--- a/syndicate/relay.rkt
+++ b/syndicate/relay.rkt
@ -214,6 +214,8 @@
                   local-ref
                   transient?
                   (lambda ()
+                     (when transient?
+                       (error 'rewrite-ref-out* "Cannot send transient reference"))
                     (define oid (tunnel-relay-next-local-oid tr))
                     (set-tunnel-relay-next-local-oid! tr (+ oid 1))
                     (wire-symbol oid local-ref 0))))