Enable immediate-query
This commit is contained in:
parent
e72e22f250
commit
832adc94c0
|
@ -43,7 +43,7 @@
|
||||||
define/query-hash
|
define/query-hash
|
||||||
;; define/query-hash-set
|
;; define/query-hash-set
|
||||||
;; define/query-count
|
;; define/query-count
|
||||||
;; immediate-query
|
immediate-query
|
||||||
|
|
||||||
send!
|
send!
|
||||||
defer-turn!
|
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-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-rule (define/query-count id P x ...) (define id (query-count id P x ...)))
|
||||||
|
|
||||||
;; (define-syntax (immediate-query stx)
|
(define-syntax (immediate-query stx)
|
||||||
;; (syntax-case stx ()
|
(syntax-case stx ()
|
||||||
;; [(_ [op args ...] ...)
|
[(_ [op args ...] ...)
|
||||||
;; (with-syntax [((query-result ...) (generate-temporaries #'(op ...)))]
|
(with-syntax [((query-result ...) (generate-temporaries #'(op ...)))]
|
||||||
;; (syntax/loc stx
|
(syntax/loc stx
|
||||||
;; (react/suspend (k)
|
(react/suspend (k)
|
||||||
;; (define query-result (op query-result args ...)) ...
|
(define query-result (op query-result args ...)) ...
|
||||||
;; (on-start (flush!) (k (query-result) ...)))))]))
|
(on-start (flush!) (k (query-result) ...)))))]))
|
||||||
|
|
||||||
(define (send! m)
|
(define (send! m)
|
||||||
(ensure-in-script! 'send!)
|
(ensure-in-script! 'send!)
|
||||||
|
|
Loading…
Reference in New Issue