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 . (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 args)) +(define (task name . args) (apply make #:name name args)) (define (task? x) (is-a? x )) (define-method (execute% (task ) (conn ))