From 600a52c287e04f3e6cab7d19fc8891445e22038e Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Tue, 8 Jun 2021 16:34:51 +0200 Subject: [PATCH] Fully expose the problem with missing-unwrapping-of-embedded --- syndicate/actor.rkt | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/syndicate/actor.rkt b/syndicate/actor.rkt index bab1748..89dd682 100644 --- a/syndicate/actor.rkt +++ b/syndicate/actor.rkt @@ -474,8 +474,7 @@ ;; TODO: prove to myself I've gotten the order correct. (Right-to-left, wasn't it?!?!) (define (attenuate-entity-ref r . caveats) + (match-define (entity-ref relay target previous-attenuation) r) (if (null? caveats) r - (match r - [(entity-ref relay target previous-attenuation) - (entity-ref relay target (append previous-attenuation caveats))]))) + (entity-ref relay target (append previous-attenuation caveats))))