diff --git a/goblins/actor-lib/ward.rkt b/goblins/actor-lib/ward.rkt index 0a92c45..d33c921 100644 --- a/goblins/actor-lib/ward.rkt +++ b/goblins/actor-lib/ward.rkt @@ -1,6 +1,6 @@ #lang racket/base -(provide spawn-warden-pair +(provide spawn-warding-pair ward incantify) @@ -22,7 +22,7 @@ ;; Returns two values to its continuation: ;; - a warden, to be used with the ward procedure below ;; - an incanter, to access actors which have warded methods -(define (spawn-warden-pair #:async? [async? #f]) +(define (spawn-warding-pair #:async? [async? #f]) (define-values (seal unseal sealed?) (make-sealer-triplet 'ward)) ;; When invoked, the warden returns either: @@ -116,7 +116,7 @@ (actormap-run! am (lambda () (define-values (admin-warden admin-incanter) - (spawn-warden-pair)) + (spawn-warding-pair)) (list (spawn ^inbox "My First Inbox" admin-warden) admin-incanter)))) @@ -146,7 +146,7 @@ (actormap-run! am (lambda () (define-values (_some-warden some-incanter) - (spawn-warden-pair)) + (spawn-warding-pair)) some-incanter))) (test-exn