From 832adc94c09b7c7510824df75bfa65e3a5d6d16c Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Mon, 28 Jan 2019 13:46:54 +0000 Subject: [PATCH] Enable immediate-query --- syndicate/syntax.rkt | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/syndicate/syntax.rkt b/syndicate/syntax.rkt index e4c562e..5273196 100644 --- a/syndicate/syntax.rkt +++ b/syndicate/syntax.rkt @@ -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!)