From 433902f3eaf9f040de0df027e00e36f39e401855 Mon Sep 17 00:00:00 2001 From: Christopher Lemmer Webber Date: Tue, 18 Aug 2020 11:34:57 -0400 Subject: [PATCH] Have spawn-revokeable use multi-value-return --- goblins/actor-lib/revokeable.rkt | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/goblins/actor-lib/revokeable.rkt b/goblins/actor-lib/revokeable.rkt index 872f40a..fedf3f0 100644 --- a/goblins/actor-lib/revokeable.rkt +++ b/goblins/actor-lib/revokeable.rkt @@ -18,12 +18,13 @@ (keyword-apply $/<- kws kw-args target args)))) (define ((^revoker bcom)) ($ revoked? #t)) - (list (spawn ^forwarder) (spawn ^revoker))) + (values (spawn ^forwarder) (spawn ^revoker))) (module+ test (require rackunit racket/match - racket/contract) + racket/contract + "../utils/values-to-list.rkt") (define am (make-actormap)) (define royal-admission (actormap-spawn! @@ -33,7 +34,7 @@ (match-define (list royal-forwarder royal-revoker) (actormap-run! am (lambda () - (spawn-revokeable royal-admission)))) + (values->list (spawn-revokeable royal-admission))))) (check-equal? (actormap-peek am royal-forwarder)