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

immediate-query

This commit is contained in:
Tony Garnock-Jones 2016-11-23 22:11:35 +13:00
parent f0f29007df
commit f201bea5c6
2 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
racket/syndicate/actor.rkt
View File

@ -43,6 +43,7 @@
define/query-set
define/query-hash
define/query-hash-set
immediate-query
send!
assert!
@ -644,6 +645,11 @@
(define-syntax-rule (define/query-hash id P x ...) (define id (query-hash id P x ...)))
(define-syntax-rule (define/query-hash-set id P x ...) (define id (query-hash-set id P x ...)))
(define-syntax-rule (immediate-query op args ...)
(react/suspend (k)
(define query-result (op query-result args ...))
(on-start (flush!) (k (query-result)))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require auxiliary-macro-context)

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

@ -34,7 +34,4 @@
(define/query-value id default (config scope (list 'key $val)) val)]))
(define (config-ref #:scope [scope ?] key default)
(react/suspend (k)
(define/query-value actual default (config scope (list key $val)) val)
(on-start (flush!)
(k (actual)))))
(immediate-query query-value default (config scope (list key $val)) val))