From 1efa10ef07876888da603756d70f24ce8247495c Mon Sep 17 00:00:00 2001
From: Ray Miller <ray@1729.org.uk>
Date: Sun, 6 Jul 2025 17:06:33 +0100
Subject: [PATCH] Don't require #:name keyword to create task

---
 examples/uptime.scm | 2 +-
 ordo/core.scm       | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/examples/uptime.scm b/examples/uptime.scm
index bbca00b..c3820e6 100644
--- a/examples/uptime.scm
+++ b/examples/uptime.scm
@@ -1,7 +1,7 @@
 (use-modules (ordo core)
              (ordo action remote-cmd))
 
-(execute (task #:name "uptime"
+(execute (task "uptime"
                #:action remote-cmd
                #:args (list "uptime" #:return car #:check? #t))
          'all
diff --git a/ordo/core.scm b/ordo/core.scm
index e2026d4..a42dfc7 100644
--- a/ordo/core.scm
+++ b/ordo/core.scm
@@ -62,7 +62,7 @@ this program. If not, see <https://www.gnu.org/licenses/>.
   (args #:init-keyword #:args #:init-form (list) #:getter task-args)
   (trigger #:init-keyword #:trigger #:init-form (list) #:getter task-trigger))
 
-(define (task . args) (apply make <task> args))
+(define (task name . args) (apply make <task> #:name name args))
 (define (task? x) (is-a? x <task>))
 
 (define-method (execute% (task <task>) (conn <connection>))