Add #:hook to spawn-configuration

2016-11-29 18:22:00 +13:00 · 2016-11-29 18:22:00 +13:00 · 78cb6f0c02
parent 97b194487b
commit 78cb6f0c02
1 changed files with 2 additions and 1 deletions
--- 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)