syndicate-lang
/
syndicate-rkt
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fully expose the problem with missing-unwrapping-of-embedded

This commit is contained in:
Tony Garnock-Jones 2021-06-08 16:34:51 +02:00
parent 40c26f006e
commit 600a52c287
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
syndicate/actor.rkt
View File

@ -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))))