From 78cb6f0c0206e5e45ab1b36438a06b406a6d0118 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Tue, 29 Nov 2016 18:22:00 +1300 Subject: [PATCH] Add #:hook to spawn-configuration --- racket/syndicate/drivers/config.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/racket/syndicate/drivers/config.rkt b/racket/syndicate/drivers/config.rkt index 670dbe9..2fe2518 100644 --- a/racket/syndicate/drivers/config.rkt +++ b/racket/syndicate/drivers/config.rkt @@ -14,8 +14,9 @@ ;; (config Any Any) (struct config (scope item) #:prefab) -(define (spawn-configuration scope path) +(define (spawn-configuration scope path #:hook [hook void]) (actor #:name (list 'configuration-monitor scope path) + (hook) (during (file-content path file->list $items) (cond [(not items)