Add #:hook to spawn-configuration
This commit is contained in:
parent
97b194487b
commit
78cb6f0c02
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue