Add *idle-priority*, and allow #:priority on begin/dataflow
This commit is contained in:
parent
f20d1a2ad7
commit
2b29e817a5
|
@ -212,6 +212,7 @@
|
||||||
*query-priority*
|
*query-priority*
|
||||||
*query-handler-priority*
|
*query-handler-priority*
|
||||||
*normal-priority*
|
*normal-priority*
|
||||||
|
*idle-priority*
|
||||||
*gc-priority*
|
*gc-priority*
|
||||||
#:count priority-count))
|
#:count priority-count))
|
||||||
|
|
||||||
|
@ -437,13 +438,14 @@
|
||||||
|
|
||||||
(define-syntax (begin/dataflow stx)
|
(define-syntax (begin/dataflow stx)
|
||||||
(syntax-parse stx
|
(syntax-parse stx
|
||||||
[(_ expr ...)
|
[(_ prio:priority expr ...)
|
||||||
(quasisyntax/loc stx
|
(quasisyntax/loc stx
|
||||||
(let ()
|
(let ()
|
||||||
(add-endpoint! #,(source-location->string stx)
|
(add-endpoint! #,(source-location->string stx)
|
||||||
(lambda ()
|
(lambda ()
|
||||||
(define subject-id (current-dataflow-subject-id))
|
(define subject-id (current-dataflow-subject-id))
|
||||||
(schedule-script!
|
(schedule-script!
|
||||||
|
#:priority prio.level
|
||||||
#f
|
#f
|
||||||
(lambda ()
|
(lambda ()
|
||||||
(parameterize ((current-dataflow-subject-id subject-id))
|
(parameterize ((current-dataflow-subject-id subject-id))
|
||||||
|
|
Loading…
Reference in New Issue