Update handlers to resolve context refs

This commit is contained in:
Ray Miller 2025-01-06 21:44:20 +00:00
parent b463a828be
commit 12c45b628c
Signed by: ray
GPG key ID: 043F786C4CD681B8
2 changed files with 12 additions and 5 deletions

View file

@ -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))