From 9068953967199a357a5448c4999de9ffde23d72e Mon Sep 17 00:00:00 2001
From: Ray Miller <ray@1729.org.uk>
Date: Sun, 6 Jul 2025 14:06:06 +0100
Subject: [PATCH] Fix handling of task arguments

---
 ordo/core.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ordo/core.scm b/ordo/core.scm
index 52e9cd7..6e65ff9 100644
--- a/ordo/core.scm
+++ b/ordo/core.scm
@@ -68,7 +68,7 @@ this program. If not, see <https://www.gnu.org/licenses/>.
 (define-method (execute% (task <task>) (conn <connection>))
   (log-msg 'DEBUG "execute task " (task-name task) " on connection")
   (if ((task-pre-condition task) conn)
-      (let ((result ((task-action task) conn)))
+      (let ((result (apply (task-action task) conn (map (lambda (a) (if (promise? a) (force a) a)) (task-args task)))))
         (cond
          ((equal? result #f)
           (log-msg 'NOTICE (task-name task) " - OK"))