Support optional priority in on-event

2016-07-17 00:26:28 -04:00 · 2016-07-17 00:26:28 -04:00 · 0a0feee01b
parent 1334bd3abb
commit 0a0feee01b
1 changed files with 3 additions and 2 deletions
--- a/racket/syndicate/actor.rkt
+++ b/racket/syndicate/actor.rkt
@ -333,12 +333,13 @@

 (define-syntax (on-event stx)
  (syntax-parse stx
-    [(_ clause ...)
+    [(_ prio:priority clause ...)
     (quasisyntax/loc stx
       (on-event* #,(source-location->string stx)
                  (lambda (e)
                    (core:match-event e
-                      clause ...))))]))
+                      clause ...))
+                  #:priority prio.level))]))

 (define (on-event* where proc #:priority [priority *normal-priority*])
  (add-endpoint! where