From 2b29e817a5e23bac79be923791c3b6939aaea8cd Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonygarnockjones@gmail.com>
Date: Wed, 10 Aug 2016 18:41:41 -0400
Subject: [PATCH] Add *idle-priority*, and allow #:priority on begin/dataflow

---
 racket/syndicate/actor.rkt | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/racket/syndicate/actor.rkt b/racket/syndicate/actor.rkt
index 2eaeff3..be1615f 100644
--- a/racket/syndicate/actor.rkt
+++ b/racket/syndicate/actor.rkt
@@ -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))