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

Enable immediate-query

This commit is contained in:
Tony Garnock-Jones 2019-01-28 13:46:54 +00:00
parent e72e22f250
commit 832adc94c0
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
syndicate/syntax.rkt
View File

@ -43,7 +43,7 @@
define/query-hash
;; define/query-hash-set
;; define/query-count
;; immediate-query
immediate-query
send!
defer-turn!
@ -587,14 +587,14 @@
;; (define-syntax-rule (define/query-hash-set id P x ...) (define id (query-hash-set id P x ...)))
;; (define-syntax-rule (define/query-count id P x ...) (define id (query-count id P x ...)))
;; (define-syntax (immediate-query stx)
;; (syntax-case stx ()
;; [(_ [op args ...] ...)
;; (with-syntax [((query-result ...) (generate-temporaries #'(op ...)))]
;; (syntax/loc stx
;; (react/suspend (k)
;; (define query-result (op query-result args ...)) ...
;; (on-start (flush!) (k (query-result) ...)))))]))
(define-syntax (immediate-query stx)
(syntax-case stx ()
[(_ [op args ...] ...)
(with-syntax [((query-result ...) (generate-temporaries #'(op ...)))]
(syntax/loc stx
(react/suspend (k)
(define query-result (op query-result args ...)) ...
(on-start (flush!) (k (query-result) ...)))))]))
(define (send! m)
(ensure-in-script! 'send!)