Update handlers to resolve context refs
This commit is contained in:
parent
b463a828be
commit
12c45b628c
2 changed files with 12 additions and 5 deletions
|
@ -36,7 +36,6 @@
|
|||
(match t
|
||||
(($ <task> description action register triggers)
|
||||
(format #t "RUNNING TASK ~a~%" description)
|
||||
(pk 'action action)
|
||||
(let ((result ((action ctx) conn)))
|
||||
(when register
|
||||
(register-context-var! ctx register result))
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue