From fe272ab514e18031311a60db73cd7a1531736c87 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Wed, 13 Jul 2016 16:37:58 -0400 Subject: [PATCH] define/query-set, -hash, -hash-set --- racket/syndicate/examples/actor/query-set.rkt | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/racket/syndicate/examples/actor/query-set.rkt b/racket/syndicate/examples/actor/query-set.rkt index 327f324..807df36 100644 --- a/racket/syndicate/examples/actor/query-set.rkt +++ b/racket/syndicate/examples/actor/query-set.rkt @@ -42,11 +42,15 @@ (hash-set (field-name) key new-entries)))))) field-name)) +(define-syntax-rule (define/query-set id P expr) (define id (query-set id P expr))) +(define-syntax-rule (define/query-hash id P k v) (define id (query-hash id P k v))) +(define-syntax-rule (define/query-hash-set id P k v) (define id (query-hash-set id P k v))) + (actor #:name 'queryer (forever - (define as-set (query-set as-set `(item ,$a ,$b) (list a b))) - (define as-hash (query-hash as-hash `(item ,$a ,$b) a b)) - (define as-hash-set (query-hash-set as-hash-set `(item ,$a ,$b) a b)) + (define/query-set as-set `(item ,$a ,$b) (list a b)) + (define/query-hash as-hash `(item ,$a ,$b) a b) + (define/query-hash-set as-hash-set `(item ,$a ,$b) a b) (on (message 'dump) (printf "----------------------------------------\n")