Enable immediate-query
This commit is contained in:
parent
6f499203d2
commit
69b70d6256
|
@ -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!)
|
||||
|
|
Loading…
Reference in New Issue