;; init.scm -- default dmd configuration file.

;; Services known to dmd:
;; Add new services (defined using 'make <service>') to dmd here by
;; providing them as arguments to 'register-services'.
(register-services '(cron))

(make <service>
  #:provides '(cron)
  #:requires '()
  #:start (make-forkexec-constructor '("mcron")))

;; Send dmd into the background
(action 'dmd 'daemonize)

;; Services to start when dmd starts:
;; Add the name of each service that should be started to the list
;; below passed to 'for-each'.
(for-each start '())

Service dmd has been started.
goops-error(#f "No applicable method for ~S in call ~S" (#<<generic> provided-by (1)> (provided-by (cron))) ())

;; init.scm -- default dmd configuration file.

;; Services known to dmd:
;; Add new services (defined using 'make <service>') to dmd here by
;; providing them as arguments to 'register-services'.
(register-services 
  (make <service>
        #:provides '(cron)
        #:requires '()
        #:start (make-forkexec-constructor '("mcron"))))

;; Send dmd into the background
(action 'dmd 'daemonize)

;; Services to start when dmd starts:
;; Add the name of each service that should be started to the list
;; below passed to 'for-each'.
(for-each start '())