From 701f5722f0a7ab4c42a741f22c60da683252b4d4 Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonyg@leastfixedpoint.com>
Date: Thu, 8 Jul 2021 20:55:14 +0200
Subject: [PATCH] Error on sending transient references

---
 syndicate/relay.rkt | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/syndicate/relay.rkt b/syndicate/relay.rkt
index 52c2486..e6096ca 100644
--- 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))))