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

define/query-set, -hash, -hash-set

This commit is contained in:
Tony Garnock-Jones 2016-07-13 16:37:58 -04:00
parent 6c3295c96d
commit fe272ab514
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
racket/syndicate/examples/actor/query-set.rkt
View File

@ -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")