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

Add *idle-priority*, and allow #:priority on begin/dataflow

This commit is contained in:
Tony Garnock-Jones 2016-08-10 18:41:41 -04:00
parent f20d1a2ad7
commit 2b29e817a5
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
racket/syndicate/actor.rkt
View File

@ -212,6 +212,7 @@
*query-priority*
*query-handler-priority*
*normal-priority*
*idle-priority*
*gc-priority*
#:count priority-count))
@ -437,13 +438,14 @@
(define-syntax (begin/dataflow stx)
(syntax-parse stx
[(_ expr ...)
[(_ prio:priority expr ...)
(quasisyntax/loc stx
(let ()
(add-endpoint! #,(source-location->string stx)
(lambda ()
(define subject-id (current-dataflow-subject-id))
(schedule-script!
#:priority prio.level
#f
(lambda ()
(parameterize ((current-dataflow-subject-id subject-id))