ray/ordo
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

An attempt at a task macro.

Browse source 
This is not complete: need to resolve context references.
This commit is contained in:
Ray Miller 2025-01-06 17:47:43 +00:00
parent 87f243b16a
commit b7e4b9dc74
1 changed files with 10 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

11
modules/ordo/task.scm
View file

@ -20,9 +20,18 @@
(register task-register) (register task-register)
(triggers task-triggers)) (triggers task-triggers))
(define* (task description action #:key (register #f) (triggers '())) (define* (task% description action #:key (register #f) (triggers '()))
(make-task description action register triggers)) (make-task description action register triggers))
(define-syntax task
(syntax-rules ()
((_ description (action arg ...) kwarg ...)
(task%
description
(lambda (conn ctx)
(action conn ctx (assoc-ref ctx arg) ...))
kwarg ...))))
(define (run-task conn ctx task) (define (run-task conn ctx task)
(match task (match task
(($ <task> description action register triggers) (($ <task> description action register triggers)