syndicate-lang
/
syndicate-2017
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Add #:hook to spawn-configuration

This commit is contained in:
Tony Garnock-Jones 2016-11-29 18:22:00 +13:00
parent 97b194487b
commit 78cb6f0c02
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
racket/syndicate/drivers/config.rkt
View File

@ -14,8 +14,9 @@
;; (config Any Any) ;; (config Any Any)
(struct config (scope item) #:prefab) (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) (actor #:name (list 'configuration-monitor scope path)
(hook)
(during (file-content path file->list $items) (during (file-content path file->list $items)
(cond (cond
[(not items) [(not items)