Fully expose the problem with missing-unwrapping-of-embedded
This commit is contained in:
parent
40c26f006e
commit
600a52c287
|
@ -474,8 +474,7 @@
|
||||||
|
|
||||||
;; TODO: prove to myself I've gotten the order correct. (Right-to-left, wasn't it?!?!)
|
;; TODO: prove to myself I've gotten the order correct. (Right-to-left, wasn't it?!?!)
|
||||||
(define (attenuate-entity-ref r . caveats)
|
(define (attenuate-entity-ref r . caveats)
|
||||||
|
(match-define (entity-ref relay target previous-attenuation) r)
|
||||||
(if (null? caveats)
|
(if (null? caveats)
|
||||||
r
|
r
|
||||||
(match r
|
(entity-ref relay target (append previous-attenuation caveats))))
|
||||||
[(entity-ref relay target previous-attenuation)
|
|
||||||
(entity-ref relay target (append previous-attenuation caveats))])))
|
|
||||||
|
|
Loading…
Reference in New Issue