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

Fix handling of task arguments

Browse source
This commit is contained in:
Ray Miller 2025-07-06 14:06:06 +01:00
parent 78beb037e7
commit 9068953967
Signed by: ray
GPG key ID: 043F786C4CD681B8
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
ordo/core.scm
View file

@ -68,7 +68,7 @@ this program. If not, see <https://www.gnu.org/licenses/>.
(define-method (execute% (task <task>) (conn <connection>)) (define-method (execute% (task <task>) (conn <connection>))
(log-msg 'DEBUG "execute task " (task-name task) " on connection") (log-msg 'DEBUG "execute task " (task-name task) " on connection")
(if ((task-pre-condition task) conn) (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 (cond
((equal? result #f) ((equal? result #f)
(log-msg 'NOTICE (task-name task) " - OK")) (log-msg 'NOTICE (task-name task) " - OK"))